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Quali stati compongono gli 
U.S. A.? Come si dice ‘Ci vediamo 
lunedì’ in francese? Atari studia con 
tuo figlio nel modo più moderno e 
intelligente. Con Atari lui impara a 
risolvere problemi di ogni tipo: da 
come sarebbe andata a Waterloo se 
lui avesse diretto le operazioni, a 
come riprodurre un brano musicale, 
a come risolvere una equazione. 

E si prepara così alla nuova civiltà 
del computer. 

Non per niente Atari è in dota¬ 
zione in molte scuole di ogni tipo, 
come aiuto prezioso sia per gli stu¬ 
denti che per gli insegnanti. 

Non avevate ancora pensato di 
regalare un computer a vostro figlio? 
Allora, pensate a un Atari. E’ facile 
e veloce, non più grande di una 


macchina per scrivere e non più co¬ 
stoso di un hi-fi. Basta collegarlo a 
un qualsiasi apparecchio TV e Atari 
è pronto per funzionare. A casa vo¬ 
stra, magari anche per giocare con 
i videogames, ma naturalmente 
anche nel vostro studio o negozio, 
officina o laboratorio. 

Perchè Atari sa fare molte cose, 
è il nuovo strumento di lavoro per 
chi vive la professione in modo mo¬ 
derno e aggiornato. Atari calcola, 
prevede, consiglia soluzioni, dise¬ 
gna grafici e figure, archivia, fattu¬ 
ra... è il collaboratore-amico che vi 
può dare una mano ogni giorno. 

Potete sceglierlo nel più agile 
modello 400 o, se avete problemi 
più complessi, nel sofisticato model¬ 
lo 800, fornito del potente sistema 


gestionale VisiCalc. E potete sce¬ 
gliere anche tra una vastissima 
gamma di accessori. 

Chiedete un Atari in prova al 
vostro negoziante di fiducia, e dopo 
un giorno insieme vedrete come è 
utile, facile e, perchè no, affascinan¬ 
te possedere un Atari. 
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ftppkz COITipUtXZr presenta alcuni dei suoi corsi per PERSONAL COMPUTER: 



Introduzione ai Personal Computer 

Durata: 1/2 giornata (ore 16,30) 

Codice 39005050 

Prezzo Lit. 30.000 + IVA 15% 


Che cos’è un “personal computer”, a cosa serve, cosa si usa e a quali moltepici problemi fornisce la 
soluzione. Una panoramica introduttiva al fenomeno del “personal computer” con particolare 
riferimento ai sistemi Apple II e III. 


m Gestione delle Informazioni con Sistemi Apple Compu¬ 
ter 

Durata: 1 giornata 

Codice 39005350 

Prezzo Lit. 70.000 + IVA 15% 

Come la massa di informazioni di ogni tipo di attività può essere organizzata, aggiornata e ritrovata 
in modo semplice e immediato con i personal computer Apple II e III. Una introduzione all’utilizzo 
dei programmi tipo “data-base” con particolare riferimento ai prodotti VISICALC/VISIPLOT/VISI- 
FILE ecc. 


Apple ][ Plus e Linguaggio BASIC 

Durata: 2 giorni 
Codice 39006050 
Prezzo Lit. 150.000 + IVA 15% 

Esame delle caratteristiche base del sistema Apple II Plus e delle sue principali periferiche. 
Introduzione alle possibilità operative del medesimo con particolare riferimento alla programma¬ 
zione con il linguaggio BASIC Applesoft e con il sistema operativo a dischetti DOS. 




Sistema APPLE III e Linguaggio Business BASIC 

Durata: 2 giorni 

Codice 39006500 

Prezzo Lit. 200.000 + IVA 15% 


Introduzione alle caratteristiche base e alle molteplici possibilità operative del sistema Apple III e 
delle sue periferiche, incluso il disco rigido Profile. 

Presentazione dei programmi applicativi disponibili, del linguaggio di programmazione Business 
BASIC e del sistema operativo SOScon particolare riferimento al “System Utility” per la definizione 
delle periferiche collegare al sistema. 


wi 


Programmazione 

Durata: 2 giorni 
Codice 39006750 


PASCAL con Sistemi Apple Computer 


Prezzo Lit. 240.000 + IVA 15% 


Introduzione ai fondamenti del linguaggio di programmazione strutturata UCSD PASCAL, che 
permette di ottenere programmi di più rapida esecuzione e più facilmente documentabili e modifi¬ 
cabili. 

Esposizione dei concetti base del sistema Apple PASCAL con particolare riferimento ai program¬ 
mai Editor, Compiler, Assembler 6502, Linker e Filer, operanti su Personal Computer Apple II e III. 


Per ogni tipo di informazione e per le iscrizioni 
ai corsi rivolgersi a: 
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C.so Sempione, 39 - 20145 MILANO 
Tel. (02) 34.93.603-31.85.678-31.85.571-34.90.176 
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Il computer può usare contro di voi i principi 
delTintelligenza artificiale. Con il programma 
descritto in questo articolo potete giocare a Master 
Mind contro il calcolatore. Vi accorgerete che sarà 
un avversario difficile da battere. E apprenderete i 
principi delTintelligenza artificiale. 

17 

Inizia una rubrica di “giochi informatici", 
strettamente apparentati ai “giochi matematici" in 
voga in questo periodo. Per iniziare, c'è un problema 
semplicissimo da dire, ma difficilissimo da risolvere. 

Il calcolatore può aiutare a capirci qualcosa. 

33 

In Basic, la programmazione ricorsiva non è 
prevista, ma si può fare. Come, è descritto in questo 
articolo, dove potete trovare anche delle applicazioni 
elementari, ed una applicazione più raffinata alla 
ricerca negli alberi di gioco. 

75 

Nel settore “Programmi" della rivista potete trovare 
listati da immettere e da eseguire subito nel vostro 
calcolatore. In generale per ogni programma viene 
data più di una versione. Date un'occhiata qui sotto, 
e vedete cosa c'è per la vostra macchina. 
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IL LIBRO 

Questa guida, con chiarezza, semplicità 
espositiva e ricchezza di esemplificazioni, 
risulta un vero e proprio strumento 
operativo per tutti coloro che vogliono 
avvicinarsi alPinformatica in generale, e 
imparare la programmazione in BASIC, in 
particolare travalicando i tre calcolatori 
(ZX81, ZX80, ZX80 nuova ROM) a cui fa 
riferimento. Partendo da quello che è un 
computer, il lettore impara nei primi sei capitoli 
a programmare in BASIC, spingendosi, per chi 
lo vuole, oltre, sino alla programmazione in 
linguaggio macchina. L’ultimo capitolo riporta 
parecchi programmi e per ciascuno, vengono 
fornite, dove possibile, le diverse versioni. Tra 
l’altro si parlerà di file e di animazione delle figure. 

Per finire ben otto Appendici, essenziali ed 
utilissime, tra cui spiccano per interesse le due 
dedicate ai sistemi operativi dello ZX80, ZX80 nuova 
ROM e ZX81. 

SOMMARIO 

Introduzione - Il calcolatore - Installazione del calcolatore 
- La programmazione - Il linguaggio BASIC - Come 
operare - Utilizzo della memoria - Linguaggio macchina - 
Esempi di programmi — caratteri del sistema - variabili del 
sistema - scheda BASIC ZX80 - scheda BASIC ZX80 nuova 
ROM e ZX81 - errori segnalati dalla macchina - sistema 
operativo dello ZX80 - sistema operativo dello ZX81 e nuova ROM 
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Software vuol dire programmi? 


Q uesta nuova rivista si chiama Personal 
Software. Tutti sanno in che senso è usato 
il termine “personal”. Ma software cosa 
significa? Sfogliando le riviste specializza¬ 
te si trovano appositi settori “riservati” al softwa¬ 
re. E in questi settori ci sono programmi, tanti 
programmi, per le varie macchine, nelle varie 
versioni, con l’elenco delle variabili, con l’elenco 
delle routine. 

L’idea che ci fa, è che “software” sia qualco¬ 
sa cui dedicare un settore a parte della rivista. 
Le cose “vere” sono le macchine, le stampanti, 
i plotter, le inchieste di mercato, le prove, i te¬ 
sti, la guida all’acquisto. A parte, c’è il softwa¬ 
re. 

E ci si fa una seconda idea: che il software 
siano i programmi. Programmi quasi esclusiva- 
mente in Basic, talvolta qualcosa in linguaggio 
macchina, ma sapendo che il lettore lo guarda 
con sospetto. 

Questa rivista è nata con la voglia di cambia¬ 
re. Di far capire che il software non è “a 
parte”. D’altronde tutti lo dicono: nei prossimi 
anni ci sarà la fame del software. Noi diciamo 
che i prossimi anni sono adesso, ed iniziamo a 
parlare solo di software, il nostro unico argo¬ 
mento. 

Ed iniziamo a dire che il software non sono 
solo programmi Basic. Anche noi abbiamo una 
sezione di programmi Basic per le varie macchi¬ 
ne nelle varie versioni. Ma parliamo anche di 
altro. Parliamo di come si fa il software, di co¬ 
me si scrive, di come si può valutare. Trattiamo 
il software come un argomento del quale si può 
diventare “esperti”, sul quale ci si può fare una 
cultura. Pensate possibile essere esperti e colti 
in “programmi Basic per il CBM 3032”? 

Per noi il software è arte della programma¬ 
zione, intelligenza artificiale, analisi degli algo¬ 
ritmi. Non è troppo complicato. Il nostro lin¬ 
guaggio sarà piano e comprensibile. Non chiu¬ 
deremo la porta in faccia a nessuno, faremo so¬ 
lo divulgazione culturale in questo particolare 
campo. E comunque alla fine ci sono sempre i 
programmi. 


In questo primo numero, oltre ai programmi, 
trovate degli articoli e delle rubriche. Gli uni e le 
altre sono aperte ai lettori: invitiamo chiunque 
avesse qualcosa da dire o da scrivere a farlo subi¬ 
to. Le rubriche non hanno dei titolari fissi: di 
mese in mese pubblicheremo gli interventi che ci 
sembreranno più in tema, anche se le diverse 
opinioni potranno essere contrastanti. 

Per gli articoli, l’unico tema da rispettare è il 
software: di base o applicativo, intelligenza arti¬ 
ficiale o gestione aziendale, pubblicheremo tutto 
quello che riterremo interessante per i nostri let¬ 
tori. 

Gli articoli di questo numero toccano temi di¬ 
versi. Ventiquattro modi per scrivere un ciclo è un 
bell’esempio di come deve venir condotta l’anali¬ 
si di un algoritmo, che in questo caso è il più 
semplice che possa esistere: il ciclo appunto. 
L’articolo sul Master Mind rientra nel campo del¬ 
l’intelligenza artificiale: come si può istruire il 
calcolatore a giocare una partita contro un 
“umano”, in modo che sia stimolante e competi¬ 
tiva? Qui ci sono alcune semplici regole, e il tutto 
è una introduzione alle tecniche dell’AI (intelli¬ 
genza artificiale). Un’altro tipo di tecnica, questa 
volta di programmazione, è spiegata in dettaglio 
in Programmazione ricorsiva in Basic. Si tratta 
appunto della ricorsività, implementata in molti 
linguaggi, per esempio il Pascal, l’Algol e il PL/1. 
In Basic non c’è, ma la si può fare lo stesso. E la si 
può applicare per esempio proprio all’AI, nella 
ricerca di in albero di gioco. Infine un ultimo 
articolo riguarda le conversioni grafiche tra i per¬ 
sonal più diffusi. È una raccolta di informazioni, 
notizie e consigli per effettuare tali conversioni. 

Su tutto questo aspettiamo il parere dei lettori. 
Dal prossimo numero ci sarà anche una rubrica di 
posta, sempre che i lettori ce lo permettano. Gra¬ 
diremmo anche ricevere pareri negativi: voglia¬ 
mo anche noi l’angolo del “Non ci sto!”. ■ 
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Texas Instruments Vi offre oggi una splen¬ 
dida occasione. Basta semplicemente scrivere pro¬ 
grammi di software. 

Se volete contribuire alla veloce crescita del 
mercato del software per gli Home Computers, 
possiamo aiutarvi. Eccovi come. 

Il computer TI-99/4A è un sofisticato calco¬ 
latore progettato non solo per il principiante che 
desidera la facilità di funzionamento, ma anche 
per il professionista. Alla base di ciò c’è la ripro¬ 
vata qualità del microprocessore a 16 bit TMS 
9900, che lo rende uno dei più potenti e versatili 
microcomputers. 

Il TI-99/4A offre una quantità di prestazioni 
che è diffìcile trovare in sistemi similari. 

Il TI-99/4A dispone di una RAM interna di 
16 k Byte, espandibile a 48 k Byte e ad una capa¬ 
cità combinata RAM/ROM di ben 110 k Bvte. Il 

J 

TI-99/4A é facilmente collegabile ad un qualsiasi 
normale televisore. Gli si possono inoltre connet¬ 
tere tante altre periferiche: stampante, disk driver, 
interfaccia RS 232 e sintetizzatore vocale. La sua 


tastiera professionale permette di scrivere sia con 
caratteri maiuscoli che con caratteri minuscoli. 

Se poi aggiungete le capacità grafiche ad alta 
risoluzione con 32 caratteri su 24 righe a 16 colori 
(256 x 192 punti), 3 tonalità su 5 ottave più gene¬ 
ratore di effetti sonori, i linguaggi di programma¬ 
zione in BASIC , UCSD-PASCAL, TI-LOGO e 
ASSEMBLER, che potete usare da consolle o da 
periferiche standard, vi accorgerete di quanto il 
TI-99/4A superi la concorrenza. Specialmente 
se poi date un’ occhiata al suo prezzo di 
598.000 lire IVA esclusa. 

Per risolvere ì vostri problemi, potete usare 
facilmente la vasta gamma di programmi residenti 
su moduli «Sohd State Software»" della Texas 
Instruments. Oltre 600 programmi di software 
sono già disponibili nel mondo. 

Desideriamo espandere ulteriormente il 
software già esistente su moduli «Solid State Soft¬ 
ware» 5 , Cassette e dischi, con programmi promet¬ 
tenti, scritti da persone entusiaste. Ecco perché ci 
rivolgiamo a voi. 


Poiché abbiamo riservato a questo programma 
di sviluppo del software solo un numero limitato 
di sistemi con TI-99/4A, affrettatevi 
a spedire oggi stesso il coupon 
che vi permetterà di conoscere 
in dettaglio le modalità di 
partecipazione. 




Spedire a Texas Instruments Semiconduttori Italia S. 
Divisione Prodotti Elettronici Personali 
Software Rallye 



Casella Postale 1 Cittaducale (Rieti) 

Sono interessato al programma per l'Home Computer 
TI-99/4A della Texas Instruments. 

Spedite, per favore, ulteriori informazioni a 
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Texas Instruments 




















































In effetti sono 124 modi 
(o anche di più) il che 
illustra l’infinita varietà 
di cicli, la più semplice 
fra le tecniche di 
programmazione. 


di W.D. Maurer 


La riproduzione di questo articolo 
è stata concessa dalla rivista BYTE. 
Traduzione di Renzo Pevarolo 


Ventiquattro modi 
per scrivere un ciclo 


P er cominciare, osservate la 
tavola 1. Ci sono diverse cose 
relative a questa tavola che 
sono sorprendenti. 

Tutto quello che dobbiamo fare 
è spostare alcune quantità da un 
posto ad un altro. Ci sono N quan¬ 
tità, chiamate P(1)...P(N). Dob¬ 
biamo spostarle in 0(1)...Q(N), 
cosa che facciamo, naturalmente, 
usando una istruzione FOR in Ba¬ 
sic, così: 

10 FOR J = 1 TO N 
20 Q(J)=P(J) 

30 NEXT J 

che dovrebbero avere un senso per 
voi anche se non conoscete il Basic 
(ma a patto che conosciate un po’ 
di inglese). Ma cerchiamo di farlo 
senza usare l’istruzione FOR, per 
capire come funzionano i cicli; ed 
immediatamente ci troviamo da¬ 
vanti a un gran numero di possibili¬ 
tà. La tavola 1 mostra le prime 
ventiquattro. Sono tutte differenti; 
sono tutte corte; e fanno tutte esat¬ 
tamente la stessa cosa. (Be’, non 
proprio esattamente la stessa cosa. 
Alla fine di qualcuna J è uguale a 
N + l; alla fine di altre J può essere 
uguale a N o a 1, o a 0. Ma poiché 
presumibilmente non useremo J 
dopo aver finito il ciclo, ciò non ha 
importanza). 

Perché ci sono così tanti modi 
per scrivere un ciclo? Perché ci so¬ 
no certe cose che possiamo fare in 
due o più modi. 


Possiamo cominciare con Q(l) e 
andare fino a Q(N) (prima e secon¬ 
da colonna nella tavola 1), oppure 
possiamo cominciare con Q(N) e 
scendere fino a Q(l) (terza e quar¬ 
ta colonna). 

Abbiamo tre cose da fare dentro 
il ciclo: porre Q(J) uguale a P(J); 
incrementare (o decrementare) J di 
uno; e fare un test. Queste tre cose 
possono essere disposte in sei mo¬ 
di: chiamandole U, V e W, possia¬ 
mo disporle come UVW, UWV, 
VUW, VWU, WUV o WVU. 
Ognuna di queste sei combinazioni 
corrisponde ad una delle sei righe 
della tavola 1. 

Quello che può essere ora sor¬ 
prendente relativamente alla tavola 
1 sono i sottili modi in cui non tut¬ 
to è perfettamente simmetrico. Per 
esempio, nell’ultima colonna, la 
variabile J è talvolta inizializzata a 
N e talvolta a N + l. Quest’ultimo 
caso richiede un po' più di tempo 
(a meno che N non sia veramente 
una costante, come 10). Nella pri¬ 
ma colonna, J è talvolta posto 
uguale ale talvolta a 0, il che su 
alcuni computer richiede un po’ 
meno tempo che porlo uguale a 1. 

Non ci vuole molto a capire, co¬ 
munque, che nell’enumerare venti- 
quattro modi per scrivere un ciclo, 
abbiamo in realtà solo graffiato la 
superficie. Quali sono alcune delle 
altre cose che avremmo potuto fa¬ 
re? 

Guardando in cima alla seconda 
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50 

GOTO 20 



Tavola 1. Ventiquattro modi per scrivere un ciclo in Basic. Questi ventiquattro metodi di base possono dar luogo , 
con una serie di piccoli cambiamenti a 124 diversi tipi di cicli. 


colonna, vediamo che stiamo veri¬ 
ficando se J è minore o uguale a N. 
Avremmo potuto ugualmente veri¬ 
ficare se J era minore di N + l. Lo 
stesso tipo di cambiamento poteva 
essere fatto nella seconda e quarta 
colonna, dando luogo a un totale 
di trentasei modi per scrivere un ci¬ 
clo. 

La maggior parte dei cambi di 
questo tipo ovviamente peggiora le 
cose. È chiaro che impiega più 
tempo un test su N + l che un test 
su N, anche se mettiamo qualche 
nuova variabile come NI uguale a 
N + l prima del ciclo e quindi fac¬ 
ciamo il test su NI all’interno del 
ciclo. Una possibile eccezione a ciò 
è quella in cima all’ultima colonna, 
dove potremmo verificare se J è 
maggiore di 0. In linguaggio assem¬ 
bler su un sistema che si basa sul 
6800 usando dati interi con segno 


su 8 bit, lo si può fare con una 
istruzione BGT (salta se è maggio¬ 
re di zero) direttamente dopo il de¬ 
cremento. 

Possiamo considerare la possibi¬ 
lità di porre Q(J + 1) uguale a 
P(J + 1) o Q(J-l) a P(J — 1) piutto¬ 
sto che Q(J) uguale a P(J). In alcu¬ 
ni casi questo accelera alcune delle 
operazioni del ciclo. Per esempio, 
in cima alla prima colonna, avrem¬ 
mo potuto porre J uguale a 0 e ve¬ 
rificare J con N piuttosto che con 
N + l, se poniamo Q(J + 1) uguale a 
P(J + 1). Ambedue questi cambia¬ 
menti costituiscono miglioramenti 
dal punto di vista del tempo. 

Può sembrare che ponendo 
Q(J + 1) uguale a P(J + 1) ci sia una 
perdita di tempo rispetto a porre 
Q(J) uguale a P(J). Ovviamente, 
non è così, o non dovrebbe essere 
così su un sistema ben costruito 


(sebbene possa essere così in alcu¬ 
ne versioni di Basic). Una costante 
additiva o sottrattiva in un indice 
(come J + l) non deve essere calco¬ 
lata. Per capire il perché di questo, 
abbiamo bisogno di alcune nozioni 
di linguaggio assembler; coloro che 
conoscono solo il Basic possono 
saltare il prossimo paragrafo, in cui 
viene data la spiegazione. 

Ogni volta che facciamo riferi¬ 
mento a t(v) per un vettore t e una 
variabile v, dobbiamo sommare il 
valore di v all'indirizzo di t. 
Sull’8080 questo viene fatto esplici¬ 
tamente; tipicamente si fa un LXI 
H ,t seguito da un DAD D dove il 
registro DE contiene v (cioè dove 
il registro E contiene v e il registro 
D contiene 0) e quindi possiamo 
fare riferimento a t(v) facendo 
ADD M o MOV r,M o MOV Mj 
o quello che è. 
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Ventiquattro modi per scrivere un ciclo 


Sul 6502, questo viene fatto in 
hardware; si fa un LDA t,X o un 
STA t,X o un ADC t,X o quello 
che è, dove il registro X contiene 
v, ma l’hardware somma il registro 
X all’indirizzo dato nell’istruzione, 

11 che in effetti somma v all’indiriz¬ 
zo di t in questo caso. Ogni micro¬ 
computer ha dettagli leggermente 
differenti, ma l’idea è la stessa in 
ogni caso. Ora supponete che desi¬ 
deriamo fare un riferimento a 
r(v+A:), dove k è una costante. 
Dobbiamo sommare il valore di 
v+k all’indirizzo di t, il che è lo 
stesso di sommare il valore di v al¬ 
l’indirizzo di t più k. La questione 
è che sia k che t sono costanti; il 
loro valore non cambia durante l’e¬ 
secuzione del programma. Quindi 
l’indirizzo di t più k è anche una 
costante e questa addizione può es¬ 
sere fatta prima che il programma 
parta. Sull’8080, per esempio, do¬ 
vremmo solo dire LXI H ,t+k inve¬ 
ce di LXI H,t; si tratta di una sin¬ 
gola istruzione il cui campo indiriz¬ 
zo (secondo e terzo byte del codice 
d’istruzione) contiene la quantità a 
16 bit ottenuta sommando k all’in¬ 
dirizzo di t. Sul 6502, possiamo di¬ 
re LDA t+k,X e ancora abbiamo 
una singola istruzione il cui campo 
indirizzo contiene l’indirizzo di t 
più k. Lo stesso funziona, ovvia¬ 
mente, per i riferimenti a t{v—k) 
invece di t(v+A:). 

Ad ogni modo, sommando 1 o 
sottraendo 1 al nostro indice, ab¬ 
biamo prodotto due nuovi modi di 
scrivere un ciclo da ognuno di 
quelli che già avevamo. Ora abbia¬ 
mo 108 modi per scrivere un ciclo. 
Naturalmente, in teoria, potremmo 
porre Q(J+2) uguale a P(J+2) o 
Q(J—2) uguale a P(J—2), e così via 

12 


all’infinito. Non c’è nessun limite 
(eccetto le considerazioni di over- 
flow intero) sul numero di nuovi 
modi di scrivere un ciclo. 

Uno di questi, per inciso, ha una 
certa importanza pratica. Il micro¬ 
computer IM6100 (o PDP-8) ha 
una istruzione di incremento, ma 
non una di decremento. Inoltre, 
l’incremento esegue un confronto 
con 0 (è chiamato ISZ, increment 
and skip on 0). Ciò non corrispon¬ 
de a niente nella tavola 1; se fac¬ 
ciamo il confronto con 0, nella ta¬ 
vola 1, è sempre nel decremento. 

Tuttavia, considerate il seguente 
ciclo: 

10 J=—N 

20 Q(J+N + 1) = P(J+N+1) 

30 J = J + l 

40 IF J< >0 GOTO 20 

Questa volta non possiamo usare 
il trucco di cui abbiamo parlato pri¬ 
ma a meno che N non sia costante. 
Tuttavia, se N è una costante, que¬ 
sto ciclo fa la stessa cosa di tutti gli 
altri cicli di tavola 1; e le sue due 
ultime istruzioni vengono eseguite, 
sul IM6100, dalla singola istruzione 
ISZ J, seguita da un salto all’eti¬ 
chetta 20. 

Abbiamo finito con i migliora¬ 
menti in velocità nel nostro ciclo? 
Non del tutto. Considerate il se¬ 
guente ciclo: 

10 J=2 

20 Q(J-l) = P(J-l) 

30 Q(J) = P(J) 

40 J - J+2 

50 IF J <= N GOTO 20 

Supponete che N sia 100. Allora, 
invece di fare questo ciclo cento 
volte, possiamo farlo solo cinquan¬ 
ta volte. Ogni volta, uguagliamo 


due elementi del vettore Q ai corri¬ 
spondenti elementi del vettore P. Il 
vantaggio è che J=J+2 si fa solo 
cinquanta volte, J=J + 1 si deve fa¬ 
re cento volte nei cicli di tavola 1; 
e anche l’istruzione IF viene ese¬ 
guita solo cinquanta volte invece di 
cento. 


Si può accelerare un 
ciclo facendolo con 
passo due, ed 
eseguendo 
l’assegnazione di due 
elementi alla volta? 


In pratica, il miglioramento qui 
non è così buono come sembra. 
L’assegnazione J=J+2 è general¬ 
mente più lenta di J=J +1. In effet¬ 
ti, su molti microcomputer, il mo¬ 
do più veloce di fare J=J+2 è di 
fare J=J + 1 due volte. Sul 6502, le 
due assegnazioni di vettore si pos¬ 
sono fare molto elegantemente una 
dopo l’altra, con 

LDA P-1,X 
STA Q-1,X 
LDA P,X 
STA Q,X 

Fino a che il valore di J è nel re¬ 
gistro X. Sull’8080, tuttavia, sup¬ 
ponendo che l’indirizzo di P(J—1) 
sia in DE e l’indirizzo di Q(J - 1) 
sia in HL, dovrete fare qualcosa 
come: 

LDAX D 
MOV M,A 
INX D 
INX H 


t 
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Questi due libri sono stati ideati come 
testi autonomi e completi per imparare la 
programmazione in linguaggio Assembler, 
usando lo Z80 o il 6502 (i microprocessori 
forse più diffusi). 

Scorrevoli da leggere, non richiedono 
alcuna conoscenza di base, ne di 
elettronica generale né di 
programmazione. 

Sono stati progettati, infatti, sotto forma 
di corso che, sistematicamente, passo 
dopo passo, porta il lettore dai concetti di 
base fino alle tecniche di programmazione 
avanzate, al fine di permettergli la 
realizzazione di programmi sempre più 
complessi. 

L’esposizione progressiva, rigorosamente 
strutturata, comporta la risoluzione 
obbligatoria di esercizi attentamente 
graduati al fine di verificare che si sia 
veramente capito quanto presentato? 

Ben si prestano, perciò, a chi si avvicina 
per la prima volta ai microprocessori e ne 
vuole conoscere e capire gli aspetti 
essenziali di programmazione. Per tutti 
coloro che già hanno programmato, 
invece, sarà una vera e propria miniera di 
informazioni sulle caratteristiche specifiche 
del microprocessore d’interesse, 
evidenziandone, nel contempo, vantaggi e 
svantaggi. 
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Ventiquattro modi per scrivere un ciclo 


LDAX D 
MOV M,A 
INX D 
INX H 

dove il secondo INX D e INX H 
predispongono i registri DE e HL 
per il prossimo ciclo. Quindi l’uni¬ 
co miglioramento qui consiste nel- 
l’eseguire meno volte il test alla fi¬ 
ne del ciclo. 

Ovviamente la stessa idea può 
essere implementata incrementan¬ 
do la variabile J di 3, di 4, o più 
ogni volta, sebbene ci sia un corri¬ 
spondente aumento di memoria oc¬ 
cupata dal programma. Un’altra 
difficoltà con questo schema è che 
non funziona se J non è multiplo di 
2, o dell’incremento. Se questo 
non è il caso, allora alcuni elementi 
extra verranno trasferiti da un vet¬ 
tore all’altro, e ciò può causare ri¬ 
sultati imprevedibili. La tecnica ge¬ 
nerale (nota come “srotolare” un 
ciclo) può tuttavia avere qualche 
utile applicazione sui grossi compu¬ 
ter. Anche su un piccolo sistema è 
spesso utile, particolarmente quan¬ 
do N è un numero molto piccolo, 
come 3, scrivere: 

10 0(1) = P(l) 

20 0(2) = P(2) 

30 Q(3) = P(3) 

che è migliore di ognuno dei cicli 
che abbiamo finora discusso. 

Un altro miglioramento in velo¬ 
cità dei cicli si ha da un'analisi del 
caso in cui N=0. Se dobbiamo spo¬ 
stare N quantità, allora, se N è 0, 
non dobbiamo spostare niente; in 
altre parole in questo caso non 
dobbiamo fare proprio niente. 
Molti dei nostri cicli, tuttavia, o di¬ 
ventano infiniti, o spostano una 
singola quantità, P(l) o P(N). In 


particolare questo vale per tutti i 
cicli della prima o terza riga della 
tavola 1. La ragione del fatto che 
ciò da un po’ di disturbo è che que¬ 
sti sono gli unici cicli nella tavola 1 
che usano tre istruzioni ripetute (le 
linee 20, 30 e 40). Essi sono quindi 
i più veloci, poiché tutti gli altri 
usano quattro istruzioni ripetute 
(le linee 20, 30, 40 e 50). 


In Fortran c’è un errore 
“istituzionalizzato” 
nell’esecuzione dei 
cicli. 


Sembrerebbe che avessimo una 
scelta tra rallentare il ciclo e avere 
un ciclo che non funziona per 
N=0. In Fortran, in effetti, la scel¬ 
ta che è stata fatta è quella di non 
considerare il caso N=0, in favore 
di un ciclo più veloce. (Si potrebbe 
chiamare questo un “errore istitu¬ 
zionalizzato’’ in Fortran.) Dopo 
tutto, ragionano coloro che lavora¬ 
no in Fortran, possiamo sempre 


verificare se N=0 immediatamente 
prima di partire con il ciclo, se vo¬ 
gliamo evitare questo caso. Ma c’è 
un modo migliore. Possiamo scri¬ 
vere: 

10 J - 1 
20 GOTO 50 
30 Q(J) = P(J) 

40 J = J + l 

50 IF J < = N GOTO 30 

avendo quindi solo tre istruzioni ri¬ 
petute (le linee 30, 40 e 50) e un 
ciclo che funziona anche con N=0. 

Può sembrare che questo ciclo 
violi un sacro precetto saltando in 
mezzo ad un ciclo (alla linea 20). 
In effetti, tuttavia, il problema 
connesso con il salto al centro di 
un ciclo non si applica al caso spe¬ 
ciale del salto ad una delle istruzio¬ 
ni di incremento e verifica alla fine 
del ciclo, a patto di sapere quello 
che si fa. (Se abbiamo un ciclo 
FOR in Basic, non possiamo mai 
saltare dall’esterno del ciclo all'i¬ 
struzione NEXT alla sua fine; stia¬ 
mo semplicemente parlando sul 
modo in cui il ciclo FOR può esse¬ 
re implementato). ■ 
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ZX81 8 k ROM, 1 k RAM L. 199.000 
ESPANSIONE 16 k RAM L. 131.000 
STAMPANTE ZX L. 220.000 


Sinclair, sempre Sinclair: poco più di mezzo 
milione per un completo sistema di 
computing. 

Guarda, confronta, cerca un’alternativa! 

A questo prezzo non trovi neanche un’unità 
centrale: figuriamoci poi 16 k e la stampante. 
Oggi più che mai la chiave che apre le 
porte dell’informatica per tutti è Sinclair. 
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Martino Giardino 


Un piccolo grande 
problema 


D a un po’ di tempo circola negli ambienti 
matematici questo problema, di sempli¬ 
cissima esposizione, ma di soluzione 
molto difficile. 

Prendete un numero (intero, positivo). Se è 
pari dividetelo per due. Se è dispari, moltiplica- 
telo per tre, sommategli uno e dividetelo per 
due. Otterrete un altro numero (intero, positi¬ 
vo). 

Riapplicate la stessa procedura, che possia¬ 
mo riassumere così: 

1 Consideriamo un intero positivo x. 

2 Se x è pari vai a 3, altrimenti a 4. 

3 jc<—jc/ 2; vai a 2. 

4 jc<—(3jc +1 )/2; vai a 2. 

Prima di porre il problema, applichiamo la 
procedura un paio di volte. Se partiamo da 12, 
otteniamo di seguito 

12 —> 6 —> 3 —> 5 —> 8 —> 4 —> 2 —* 1 —> 2 ... 

cadendo così nel ciclo 1-2 che possiamo indica¬ 
re così: 


12—>6— >3 — >5 —>8— *4 —>2^^ 1. 

Riproviamo partendo da 25: otteniamo 

25—>38—>19—>29—>44—>22-h>11—>17—>26—>13—> 

—>20—> 10—>5—>8—>4—>2^—>1. 

Anche in questo caso siamo caduti nel ciclo 1-2. 

Bene, il problema è proprio questo: è vero 
che partendo da qualsiasi numero (intero, posi¬ 
tivo) si cade sempre nel ciclo 1-2, oppure par¬ 
tendo da qualche numero particolare non si ca-- 
de mai in questo ciclo? 

Tutti gli esperimenti fatti, anche con compu¬ 
ter molto potenti, confermano che si cade nel 
ciclo 1-2, ma mai nessun matematico è riuscito 
a dimostrare che ciò è vero per ogni numero 
(intero, positivo). La cosa è tuttavia così verosi¬ 
mile che si ha la convinzione che succeda così. 
Questa convinzione è detta “congettura di 
Ulam”. 

Può comunque darsi che ci sia qualche nume¬ 
ro (molto grande) partendo dal quale non si ar¬ 
riva mai al ciclo 1-2: per esempio perché si cre¬ 
sce sempre, o perché si cade in un ciclo diverso. 

Con il vostro calcolatore potete fare qualche 
esperimento. 


10 

REM ********** 

* * * * 

\ÌI •.!.• yty -.Lr \b 

A /[•. A A A 

-.lf -.u 

A A- 

20 

REM 




30 

REM CONGETTURA 

DI 

ULAM 

1 

40 

REM 




50 

REM ********** 

* * * * 

* * * * * 

** 

60 

REM 




70 

INPUT X 




80 

IF INT(X/ 2 )* 2 < 

>X G 

0T0 1 

10 

90 

X —X/2 




100 

GOTO 120 




1 .1. 0 

X~<3#X+l>/2 




120 

PRINT X 5 




130 

IF KOI GOTO 

80 



140 

PRINT 




150 

PRINT"CICLO 1 

~~ 2 U 



160 

GOTO 70 





Figura 1. 


10 R E M * * * * * * * * * * * * * * % * % * *** 
20 REM 

30 REM CONGETTURA DI ULAM 2 
40 REM 

5 0 R E M * ** * * * * ** * * $ * * * * ***** 
60 REM 
70 Y=2 


75 Y=Y+1 

76 X=Y 

8 0 IF' IN T ( X / 2 ) * 2 < > X G 0 T 0 

90 X = :: X / 2 

100 GOTO 120 

1 10 X = < 3 * X +1 ) / 2 

120 IF X >-Y GOTO 80 

150 PEINT Y "VA IN CICLO 

160 GOTO 75 


1 10 



Figura 3. 
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Un piccolo grande problema 


In figura 1, per iniziare, c’è un 
programma che semplicemente au¬ 
tomatizza la procedura di calcolo 
della successione. Si dà un numero 
in input e si può controllare se la 
successione “cade” nel ciclo 1-2. In 
figura 2 sono riportati i risultati che 
si ottengono partendo rispettiva¬ 
mente da 42, 27, 41 e 107. 

Il programma implementa esat¬ 
tamente l'algoritmo descritto all’i¬ 
nizio. Nell'istruzione 70 si introdu¬ 
ce l’intero di partenza. Nella 80 si 
controlla se è pari, e in tal caso si 
va alla 90, oppure dispari, nel qual 
caso si va alla 110. L'istruzione 120 
stampa il nuovo numero e nella 
130 si controlla se è 1. 

Nella figura 3 è riportato invece 
un programma di verifica globale. 
Questo programma si basa sul 
principio che, se si è verificato che 
tutti i numeri minori o uguali ad x 
cadono in un ciclo 1-2, per quanto 
riguarda a:- fi basterà ovviamente 
controllare che nel corso della pro¬ 
cedura diventi minore o uguale a x. 

Il programma dunque esamina 
tutti i numeri, uno dopo l’altro, a 
partire da 3. Nelle istruzioni da 90 
a 130 si applica il solito algoritmo. 
Nell’istruzione 140 si controlla se il 
numero m esame, x+ 1, è diventato 
minore o uguale a x. 

Il programma non ha termine. In 
pratica però, a un certo punto x di¬ 
venterà così grande che la macchina 
non riuscirà più a rappresentarlo co¬ 
me numero intero. Passerà alla no¬ 
tazione esponenziale, e quindi non 
ci potrà più essere d’aiuto. 

Potete comunque divertirvi a 
controllare se la congettura di 
Ulam è verificata per tutti i numeri 
cui può arrivare il vostro calcolato¬ 
re. Ma non fatevi troppe illusioni. 



Figura 2. 


18 












In questo | a 

numero: 1SM 

• TI 99/4A, 

Osborne 1, 

Rainbow 100 W£ 

• “Hannover ■ 

Messe ’81 Cebit” .1 

• Bitest HP 125 | 

• Il word-processing 1 

• Wordcraft 80, Wordstar, ' 
Apple writer 

• I package di W.P. 

• Sistema di 

word-processing in Pascal 
per Apple 

• Lo Scrlpsit della Tandy 

• Apple, Atari, Pet, Sinclair 
e Vie Club 

• CPM/Corner 


■■ 


Una pubblicazione del 


GRUPPO EDITORIALE 

JACKSON 










Usare il sistema operativo 


IL LIBRO 

Il sistema operativo CP/M è stato progettato per 
rendere semplice l’uso di un microcomputer. 
Questo libro vi renderà semplice Fuso del CP/M. 
(Le versioni esaminate del CP/M sono il CP/M 
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multiutente MP/M) La maggior parte di utenti di 
microcomputer dovrà, infatti, un giorno o l’altro, 
fare ricorso al CP/M, disponibile su quasi tutti i 
computer basati sui microprocessori 8080 e Z80, 
come pure su certi sistemi utilizzanti il 6502. Il 
libro, senza presupporre alcuna conoscenza di un 
calcolatore, inizia con la descrizione, passo-passo 
delle procedure di inizializzazione del sistema: 
accensione, inserimento dei dischetti, esecuzione 
delle più comuni operazioni su file, compresa la 
duplicazione dei dischetti. Prosegue con il PIP 
(programma di trasferimento dei file), il DDT 
(programma di messa a punto) e ED (programma 
editor). Per entrare sempre più, fornendo 
numerosi consigli pratici, all’interno del CP/M e 
delle sue operazioni, al fine di comprenderne 
appieno le risorse ed eventualmente dare gli 
strumenti per successive modifiche. 




SOMMARIO 

Introduzione al CP/M e alFMP/M-Le 
caratteristiche del CP/M e delFMP/M-Gestione 
dei file con PIP-L’uso delFeditor-Dentro al CP/M 
e all’MP/M-Guida di riferimento ai comandi e ai 
programmi del CP/M e delFMP/M-Consigli 
pratici-Il futuro-messaggi comuni di errore-tabella 
di controllo di ED-nomi dei dispositivi di PIP- 
riassunti dei comandi-parole chiave di PIP- 
parametri di PIP-tasti di controllo per la 
digitazione dei comandi-tipi di estensione-lista dei 
materiali-organizzazione della stanza del 
calcolatore-verifiche in caso di errore-regole di 
base per la localizzazione dei guasti. 
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In questo programma il 
computer usa i principi 
dell’intelligenza 
artificiale contro di voi. 


di Duan R. Hope 


Il programma listato nella prossime 
pagine è stato realizzato con un TRS- 
80. È facilmente adattabile ad ogni 
personal computer perché non usa le 
caratteristiche grafiche dello scher¬ 
mo. 


Master Mind 
e intelligenza 
artificiale 


A vete mai sentito parlare di 
intelligenza artificiale sfo¬ 
gliando la vostra rivista di 
computer? Forse vi sarete doman¬ 
dati che cosa fosse e come avreste 
potuto utilizzarla. 

L'intelligenza artificiale (IA) è 
un sistema realizzato con computer 
che mostra un comportamento che, 
se osservato nell'uomo, viene chia¬ 
mato intelligenza. Le forme più co¬ 
muni di intelligenza di un sistema 
IA sono la capacità di risolvere 
problemi, di apprendere e di rico¬ 
noscere delle strutture. 

Mescolando questi ingredienti, i 
sistemi IA sono stati progettati per 
risolvere vari problemi più o meno 
complessi, come l'analisi degli in¬ 
vestimenti, la dimostrazione di teo¬ 
remi o anche il gioco degli scacchi. 

Ho applicato tecniche di IA per 
la prima volta ad un programma di 
Master Mind. Avevo già scritto un 
programma che permetteva ad una 
persona di giocare a Master Mind: 
il computer generava un codice e 
valutava ogni tentativo del giocato¬ 
re. 

Questa versione mi ha presto 
stufato. Per fare in modo che an¬ 
che il computer potesse indovinare 
un codice pensato dal giocatore, ho 
modificato il programma utilizzan¬ 
do tecniche di IA. Anche se questa 
versione del Master Mind non è 
così sofisticata come i sistemi ciber¬ 
netici di investimento, il computer 
dimostra con essa un comporta¬ 


mento intelligente. Esso infatti im¬ 
para a ripetere il processo necessa¬ 
rio ad indovinare un codice segre¬ 
to. 


Il Master Mind 

Se non conoscete il Master 
Mind, si tratta di un gioco di logica 
deduttiva prodotto dalla Invicta, 
che si gioca in due persone: il deci¬ 
fratore e il codificatore. I due gio¬ 
catori si scambiano i ruoli dopo 
ogni partita. 

All'inizio del gioco, il codificato- 
re prepara un codice formato da 4 
pioli colorati scelti fra sei gruppi di 
colore diverso. Il decifratore non 
può vederlo e deve cercare di indo¬ 
vinarlo facendo dei tentativi che 
vengono man mano valutati dal co¬ 
dificatore. 

Per le sue valutazioni il codifica¬ 
tore userà un piolino nero per ogni 
piolo del tentativo corretto sia co¬ 
me colore che come posizione, 
mentre ne userà uno bianco per in¬ 
dicare un piolo corretto come colo¬ 
re ma non come posizione. Il codi¬ 
ficatore, tuttavia, non dirà mai a 
quali pioli del tentativo si riferisco¬ 
no le sue valutazioni. Vedi esem¬ 
pio 1. 

Il codificatore valuta il tentativo 
delPesempio 1 con un nero e due 
bianchi. Se questo fosse il primo 
tentativo, il decifratore non avreb¬ 
be idea di quale fosse il piolo giu- 
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Master Mind e intelligenza artificiale 


sto sia come posizione che come 
colore (quello giallo) e quali due 
fossero giusti solo come colore 
(quello rosso e quello blu). 

Il codificatore riceve un punto 
per ogni tentativo del decifratore. 
Quando tutti e due i giocatori sono 
stati sia codificatore che decifrato¬ 
re per uno stesso numero prefissa¬ 
to di volte, si confrontano i punteg¬ 
gi: vince ovviamente chi ha più 
punti. 

Analisi mezzi-scopi 

La parte più difficile nell’inse- 
gnare ad un computer a giocare a 
Master Mind sta neH’insegnargli ad 
indovinare un codice segreto. Ma 
indovinare un codice segreto può 
essere paragonato a risolvere un 
problema. 

Per fare questo possiamo utiliz¬ 
zare una delle tecniche di soluzione 
dei problemi dell’IA. Personal¬ 
mente ho deciso di usare l’analisi 
mezzi-scopi studiata da Newell e 
Simon. 

Nell’analisi mezzi-scopi, gli scopi 
rappresentano la soluzione di un 
dato problema, e vi ci si riferisce 
come “stato finale”. Lo “stato 
attuale” dice quanto vicino è il.so¬ 
lutore del problema allo stato fina¬ 
le ed è formato da tutte le informa¬ 
zioni accumulate durante la ricerca 
della soluzione. 

Nell’analisi mezzi-scopi è fonda- 


mentale il concetto che c’è una dif¬ 
ferenza misurabile fra lo stato at¬ 
tuale e lo stato finale. La differen¬ 
za può essere ridotta con una ripe¬ 
tuta applicazione di particolari 
operazioni ai dati precedentemente 
acquisiti. Questi sono i mezzi nella 
soluzione del problema. 

Nel Master Mind lo stato finale è 
indovinare il codice. Lo “stato 
attuale” è dato da tutte le informa¬ 
zioni che il decifratore ha accumu¬ 
lato durante il gioco. Inizialmente 
lo “stato attuale” è rappresentato 
solo dalla conoscenza delle regole 
del Master Mind. 

La differenza tra lo stato finale e 

10 stato attuale è il numero massi¬ 
mo di tentativi che il decifratore 
potrebbe dover fare per indovinare 

11 codice. Visto che il codice è for¬ 
mato da quattro pioli e ogni piolo 
potrebbe assumere sei colori diver¬ 
si, potrebbe essere necessario, per 
il decifratore, fare 1296 
(6x6x6x6) tentativi prima di in¬ 
dovinare il codice. Per ridurre que¬ 
sta differenza, la prima mossa sarà 
fare un tentativo. 

Protocollo verbale e grafi di 
comportamento al problema 

Il protocollo verbale è un’altra 
tecnica di IA che viene utilizzata 
per scoprire quali ragionamenti 
vengono fatti dall’uomo per risol¬ 
vere un certo problema. Per regi¬ 


strare questi ragionamenti, si chie¬ 
de al solutore del problema di pen¬ 
sare. ad alta voce mentre cerca di 
trovare la soluzione. 

I ragionamenti vengono scritti su 
di un foglio di carta che è chiamato 
“protocollo verbale”. Questo viene 
analizzato per scoprire le operazio¬ 
ni che il solutore ha fatto per arri¬ 
vare alla soluzione. 

L’analisi viene semplificata usan¬ 
do dei grafi di comportamento al 
problema che sono una rappresen¬ 
tazione del protocollo verbale. 

Per spiegare come possono esse¬ 
re utilizzati il protocollo verbale e i 
grafi vediamo l’esempio di un deci¬ 
fratore che deve fare il suo primo 
tentativo per indovinare il codice 
di una partita di Master Mind. Per 
esemplificare l’esempio, useremo i 
numeri da 1 a 6, invece dei sei co¬ 
lori, per formare il codice. 

Poniamo che il codice sia 4326. 
Sappiamo già che per prima cosa il 
decifratore deve fare un tentativo 
per ridurre la differenza fra stato 
attuale e stato finale. 

II protocollo verbale del primo 
tentativo sarà una cosa di questo ti¬ 
po: 

“Vediamo, devo fare il pri¬ 
mo tentativo. Allora, con 
cosa posso iniziare? Ah sì, 
potrei iniziare con 1111”. 

Il codificatore valuta il ten¬ 
tativo con 0 neri e 0 bian¬ 
chi. 

Il decifratore continua a 
pensare: “Nessun bianco e 
nessun nero, vuol dire che 
il codice non contiene nes¬ 
sun 1”. 

Per disegnare il grafo di compor¬ 
tamento al problema, si rappresen¬ 
ta lo stato attuale con un rettango¬ 
lo. Un’operazione che ci porta ad 
un nuovo stato sarà rappresentata 
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SHARP PC-3201 


Il piccolo computer gestionale 
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m -?c, 


facile come un personal, potente come un mini. 


Devi seguire tempestivamente clienti e fornitori, 
aver sempre aggiornata la situazione crediti e paga¬ 
menti, far fronte puntualmente a scadenze e impegni? 

Desideri ottenere rapidamente elenchi fatture e ri¬ 
cevute, imputare direttamente dai documenti (senza 
prima nota) le registrazioni contabili, quadrare giornal¬ 
mente cassa e fuori cassa, emettere bolle di consegna 
e fatture, tenere aggiornato il magazzino, fare i bilanci 
e i conti economici per i controlli budgetari e di fine anno? 

Affidati al PC-3201 della Sharp. Il 
PC-3201 è il posto di lavoro EDP che 
SHARP puoi facilmente assegnare alla tua 

azienda o al tuo ufficio. Perché è dota¬ 


to di un BASIC interattivo di facile comprensione e di 
una architettura completa e sofisticata che potrai 
espandere su misura delle tue esigenze. 

Il PC-3201 possiede infatti una ROM da 32 K e una 
RAM da 32 K espandibile fino a 112 K, un grande vi¬ 
deo, memorie a minidischi e una veloce stampante. 
In questa configurazione il PC-3201 è alla portata di 
tutti: il suo prezzo parte infatti da 8.500.000 lire. 

Il PC-3201 è completato dai pacchetti applicativi mes¬ 
si a punto dalla Melchioni Computerti- 
me che lo distribuisce in esclusiva per 
l’Italia e che ne cura l’assistenza anche 

grazie alla sua rete di Concessionari. MELCHIONI 

OOMPUTERTIME 


Concessionari e Rivenditori autorizzati presenti in ogni provincia italiana Via Fontana, 22 - Milano - Tel. 585.116-541.569 
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REM ******************************************************* 
REM * * 

REM * MASTER MIND * 

REM * DI * 

REM * DUANE R. HOPE - * 

REM * * 

REM ******************************************************* 
REM 
REM 
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REM * * 

REM * PROGRAMMA PRINCIPALE * 

REM » » 

REM ******************************************************* 
RANDOM: CLS: DIM GT<20,6> 

PRINT" MASTER MIN D"SPRINT 
INPUT"COME TI CHIAMI";NA* 

PRINT: INPUT"QUANTE PARTITE VUOI FARE";NG 
IF NG<1 G0T0240 
PRI NT 

PRINT"ADESSO LANCIO UNA MONE ! A PER DECIDERE ! "ORDINE 
DEL GIOCO" 

PRINT 

PRINT"TESTA - SEI IL CODIFICATORE" 

PRINT"CROCE - SEI IL DECIFRATORE" 

FOR 1=1 TO 1500: NEXT I 
CT=RND<2> 

IF CT=1 MI*="TESTA": M2*="C0DIFICATORE" 

IF CT=2 Ml*="CROCE": M2*="DECIFRATORE" 

PRINT MI*;"! TU SEI IL ";M2*: PRINT 
GC=0: PC=0: PF-0 

IF CT=1 GOSUB 560 ELSE GOSUB 960 
IF CT=1 GOSUB 960 ELSE GOSUB 560 
IF GC=0 GA*= "PARTITA" ELSE GA*= "PARTITE" 

PR I NT " DOPO " ; GC-+-1 ; GA* ; " IL PUNTEGGIO E":" 

PRINT: PRINT" "NA*;PP 

PRINT" COMPUTER"; PC 

FOR 1=1 TO 2500- NEXT I 
GC=GC+1 

IF GCCNG G0T0360 
M1*="PAR ITA"" 

PRINT 

IF PC>PP THEN M1*="HO VINTO IO" 

IF PCCPP THEN M1*= "HAI VINTO TU" 

PRINT M1 $ 

PRINT: INPUT"VUOI FARE UN'ALTRA PARTITA":M1 * 

IF LEFT* < M1 * , 1)="S" GOTO 240 

PRINT: FRINT"GRAZIE PER AVER GIOCATO, ";NA* 

END 

REM ******************************************************* 
REM * * 

REM * ROUTINE DEL CODIFICATORE * 

REM * * 

REM ******************************************************* 
PRINT: PRINT"TOCCA A TE A FARE IL CODICE": PRINT 
INPUT"BATTI IL CODICE DI 4 CIFRE CHE 10 COVRO' INDO' ? INAFE"; 
.CO* 

IF LEN(CO*)< >4 GOTO 600 

NUM*=CO*: GOSUB 1290 

IF ER< >0 GOTO 600 

RESTORE 

FOR R=1 TO 6 

FOR C=1 TO 4 

READ PO(R,C) 

NEXT C,R 

C1 = 1 : C2=1 : C3=l: C4=0: GU=0 
GU=GU+1 

IF GU= 1 THEN FOR 1 = 1 TO. 4: C ( I.) =RND (6) : NEXT I 
IF GU=2 THEN C(1)=C1: C(2)=C2: C(3)=C3: C(4)=C4 
IF GU>2 THEN FOR 1=1 TO 4: C(I>=GT(GU-1,I): NEXT I 
IF GU>1 GOSUB 1690 
TRY*="" 

FOR 1 = 1 TO 4: TRY*=TRY*+RIGHT*(STR*(C(I) ) , 1) : NEXT I 
PRINT"PER FAVORE VALUTA IL TENTATIVO NUM.";GU;": ";TRY* 

INPUT" QUANTI NERI";BB 
INPUT" QUANTI BIANCHI";WW 

FOR 1=1 TO 4 : Gl(GU,I>=C(I>: NEXI I: GT(GU,5>=BB: 

GT(GU,6)=WW 

NUM*=CO*: GOSUB 1290 

FDP I = 1 TO 4: C(I)=T(I): NEXT I 

NI “1*=TRY* : GOSUB 1290 
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da una freccia. Vedi figura 1. 

Analizzando il grafo si vede che 
la prima operazione da fare è il 
tentativo 1111. Questo ci porta dal 
primo stato (quando sapevamo so¬ 
lo le regole) al secondo (quando 
sappiamo che il tentativo è stato 
valutato con 0 neri e 0 bianchi). 
Questa operazione ha ridotto la 
differenza tra lo stato attuale e lo 
stato finale da 1296 possibili tenta¬ 
tivi a 1295. Il grafo (b) della figura 
1 mostra la seconda operazione, 
“Se bianchi -I- neri = 0 allora i nu¬ 
meri di questo tentativo non posso¬ 
no essere contenuti nel codice”, 
che ci porta ad un successivo stato 
attuale: il codice non contiene nes¬ 
sun 1. Questa seconda operazione 
ha ridotto ulteriormente la diffe¬ 
renza tra lo stato attuale e lo stato 
finale a 625 possibilità 
(5x5x5x5). 

Per ridurre ancora la differenza 
tra stato attuale e stato finale, ho 
registrato un protocollo verbale 
mentre cercavo di indovinare sva¬ 
riati codici, ed ho scritto dei grafi 
di comportamento al problema. 
Elaborando i grafi, ho trovato che 
le operazioni potevano essere divi¬ 
se in due gruppi: riconoscimento di 
strutture e apprendimento. 


Riconoscimento di strutture 

Il riconoscimento di strutture è 
una tecnica di IA usata per trasfor¬ 
mare delle informazioni in azioni. 
Nel riconoscimento di strutture c’è 
una corrispondenza biunivoca fra 
le informazioni che si hanno e le 
azioni che si fanno. Le operazioni 
di riconoscimento di strutture che 
ho trovato sono contenute nell’e- 
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via fermi, 40 - 07100 SASSARI - 079/276364 
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La famiglia di personal computer più completa 
attualmente sul mercato per imprenditori, professionisti, 

tecnici, amministratori. 

Vi aspettiamo per fornirvi la più ampia documentazione 

e le più complete dimostrazioni. 

SHARP COMPUTERS 

I NOBEL DELLINFORMAT1CA 


PIEMONTE - GENERAL COMPUTERS - Torino - 011/835156 - COMPDATA - Ivrea - 0125/49069 - OLIVIERI & GOVERNA - Alessandria - 0131/ 
442646 - LIGURIA - REM KARD ITALIA - Genova 010/884971 - TECNOSYSTEM - Sanremo - 0184/884794/5 - LOMBARDIA SHARCO (di MI¬ 
GLIORI ROBERTO) - Gavirate - 0332/745526 - ADEL - Brescia - 030/221674 - GAME - Treviglio - 0363/40803 - ENNE COMPUTER - Portichetto 
di Luisago - 031/920136 - C.E.E. - Vigevano - 0381/81555 - DATA STUDIO (di SERGIO CAVENAGHI) - Burago di Molgora - 039/663736 - LINEA 
UFFICIO (di ANNUNZIATA ELIO) - Cremona - 0372/24364 - P.G.P. SISTEMA - Milano - 02/2842860 - COMPUTER HOUSE - Monza - 039/362618 
TRE VENEZIE - SIGMA SYSTEM - Udine - 0432/26992 - INTERSOUND (di COPPETTI FRANCO) - Brunico - 0474/21282 - COMMERCIALE 

SISTEMI Thiene - 0445/.- MINI SYSTEM - Bolzano - 0471/32270 - PENTA - Preganziol - 0422/938535 - PINARELLO - Padova - 049/754830 - 

SYSTEM COPY - 35100 Padova - 049/44982 - PINO ANDREA - Cerea - 0442/82790 - TECNOSYSTEM - Vicenza - 0444/31152 - EMILIA ROMA¬ 
GNA - MARCHE - ABRUZZO - ADRIATICA COMPUTER - Senigallia - 071/62516 - GIMAR SISTEMI - Silvi Marina - 085/932739 - MULTIDA- 
TA - Reggio Emilia - 0522/27617 - M.R.P. TECNOSISTEMI - 40069 Zola Predosa - 051/751662 - RODAN & C. - Civitanova Marche - 0733/770386 - 
ROGANTI F.LLI - Montecassiano - 0733/59231 TOSCANA - ELECON - Piombino - 0565/33112 - MNEMO COMPUTERS - Firenze - 055/4378652 
- TECNOCOPY - Firenze - 055/352801 - LAZIO - EUROCOM - Roma - 06/7574487 - TECNOMEC - Roma - 06/484998 - CAMPANIA - PUGLIE - 
CALABRIA - GENERAL COMPUTERS - Torre Annunziata - 081/8612270 - L. & L. COMPUTERS - Bari - 080/410167 - COMPUTER SUD - Lecce - 
0832/42413 - ATLANTIC - Reggio Calabria - 0965/44671 - G.M. MARASCIO COMPUTERLINE - Montauro - 0967/48207 - SICILIA - SARDE¬ 
GNA - SIFI DATA MANAGEMENT - Catania - 095/438178 - A.E.P. COMPUTERS SYSTEM - Sassari - 079/276364 - VIMAR - S. Agata di Militel- 
lo - 0941/702771. 
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sempio 2. 

In certi casi, Fuso dei meccani¬ 
smi di riconoscimento delle struttu¬ 
re porta a ridurre la differenza tra 
lo stato attuale e lo stato finale. In 
altri casi, il riconoscimento della 
struttura deve essere appoggiato 
dal processo di apprendimento. 


Apprendimento 

Il processo di apprendimento è 
una tecnica di IA che modifica gra¬ 
dualmente un sistema di decisione 
programmato per migliorarne il 
funzionamento. Le modifiche ven¬ 
gono fatte in base ai risultati otte¬ 
nuti in precedenza. 

Per esempio, ogni tentativo del 
decifratore, con la valutazione re¬ 
lativa, viene memorizzato. Prima 
di fare le mosse successive, vengo¬ 
no rivalutati i tentativi precedenti 
in base al tentativo che sta per es¬ 
sere fatto. Se ogni valutazione data 
in precedenza corrisponde a quella 
attuale allora il tentativo potrebbe 
corrispondere al codice, e verrà 
giocato. Se invece una qualunque 
“rivalutazione’' è diversa da quella 
originale, allora il tentativo sarà 
scartato. Questo è il processo di 
apprendimento. 

Poniamo che il codice sia 4316 e 
che il primo tentativo sia 1111. 
Questo sarebbe valutato con 1 ne¬ 
ro e 0 bianchi. La differenza fra lo 
stato attuale e lo stato finale sareb¬ 
be ridotta di 1. Tuttavia, usando il 
processo di apprendimento, possia¬ 
mo ridurre ulteriormente questa 
differenza eliminando tutti i tenta¬ 
tivi il cui risultato, quando con¬ 
frontato con 1111 non sia 1 nero e 
0 bianchi. Vedi esempio 3. 


830 
840 
850 
853 
857 
860 
870 
880 
890 
900 
9 1 0 
920 
930 
940 
950 


GGSUB1480: REM VALUTAZIONE DEL TENTATIVO 
POR 1 = 1 TO 4: T <I) ~C <I> s NEXT I 
IF BB=B AND WW=W GOTO 880 
IF B=1 THEN B$="NERO" ELSE B*="NERI" 

IF W=1 THEN W*="BIANCO" ELSE W*="BIANCHI" 

FRI NT "AVRESTI DOVUTO BATTERE" ; B; B$; " E";W:W* 

GT(GU,5>“B: GT(GU,8)=W 

IF B=4 THEN PP==PP+GU: PRINT"HO INDOVINATO 1 ' " : RETURN 
IF 8+14=4 GOSUB 1840 
IF B+W=0 GOSUB 1990 
IF B=0 AND W >0 GOSUB 
FRINT"STO PENSANDO" 

GOTO 690 
DATA 1,1,1,1 
RETURN 


1 :l 0 


*-y '~y 

H 1 -P 1 -P ^ 


j., , 4,4,4,4,5,5,5,5,6,6, 6 , c> 


960 R E M # * * # * * # * * * * * * * * * * * * * * * * * * * * * # * * * * #: * # * # * #* * * * * # # *: * # :* # * * * 

* 


970 REM 

* 



980 REM 

* 

POLO" I NE 

. DEL DECIFRATORE 


* 

990 REM * * 

1000 REM#*#*##**#*#*#*****#**#*#*#*##*#4-*********************** 
1010 .FRINT: FRINT"ADESSO TOCCA A ME A PREPARARE IL CODICE" 

1020 FOR 1=1 TO 2500s NEXT I 
1030 PRINT ^ 

1035 PR I NT " VA BENE SONO -FRON TO - FA TI! ! ! IO PR ] ITO } EH I * ; I ! ' ’» » " 
1040 FRINT. 

1050 N0=0 4 . 

1060 FOR 1=1 TO 42 C(I)=RND(6): NEXT 1 
1070 INPUT " BAT.T I IL. TUO T EM I A I I VO < 4 CIF RE • " ; ! R y * 

1 075 IF LEM ( T'RYT. > • <1 GOTO 1 070 

1080 NUM*=TRY$is GOSUB 1290 
1090 IF EROO GOTO 1070 

1100 GOSUB 1480: REM (VALUTAZIONE DEL TENTATIVO) 

Ilio N0=N0+1 

1115 IF B= 1 THEN BT> = "NERO" ELSE B* = "NERT" 

1117 IF W=1 THEN m~" BIANCO" ELSE W*="BIANCHI" 

1120 FRI NT "TENTAI'IVO NUMERO" ; NO ; " : ";B.;B$;" E";W:W$ 

1130 IF B<>4 GO TO10 70 
1140 PRI NT"HAI INDOVINATO 1 1 1 " 

1150 PC-PC+NO 
1160 RETURN 

1170 REM ****************************************************** 

1180 REM * * 

1190 REM * ROUTINE PER TRASFORMARE UNA STRINGA DI QUATTRO * 

1200 REM * CIFRE NEL VETTORE NUMERICO T(I) * 

1210 REM * * 





* 

Stato 1 


Stato 2 




Tentativo 

Nero = 0 




1111 

Bianco = 0 


(a) 

(1296 possibilità) 

7 

(1295 possibilità) 




• 


Stato 2 


Stato 3 


(b) 

Nero = 0 

Se Nh-B= 0 i nu- 

Il codice non ha nessun 



Bianco = 0 

meri di questo 

uno (625 possibilità) 



(1295 possibilità) 

tentativo non 





possono essere 



nel codice 



Fig. 1. Grafo di comportamento al problema. 


Struttura di valutazione 

Azione 

Neri + bianchi = 0 

Non usare questi numeri nei prossimi tentativi. 

. 

Neri = 0; bianchi = 0 

1 numeri di questo tentativo non potranno ap¬ 
parire nella stessa posizione nei prossimi ten¬ 
tativi. 

Neri + bianchi = 4 

Solo i numeri di questo tentativo sono nel codi¬ 
ce, non utilizzarne altri nei prossimi tentativi. 

Neri = 4 

È stato raggiunto lo stato finale, il codice è stato 
decifrato. 


Esempio 2. Operazioni di riconoscimento strutture. 
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La famiglia di personal computer più completa 
attualmente sul mercato per imprenditori, professionisti, 

tecnici, amministratori. 

Vi aspettiamo per fornirvi la più ampia documentazione 

e le più complete dimostrazioni. 

SHARP COMPUTO» 

I NOBEL DELLINFORMATICA 


PIEMONTE - GENERAL COMPUTERS - Torino - 011/835156 - COMPDATA - Ivrea - 0125/49069 - OLIVIERI & GOVERNA - Alessandria - 0131/ 
442646 - LIGURIA - REM KARD ITALIA - Genova 010/884971 - TECNOSYSTEM - Sanremo - 0184/884794/5 - LOMBARDIA SHARCO (di MI¬ 
GLIORI ROBERTO) - Gavirate - 0332/745526 - ADEL - Brescia - 030/221674 - GAME - Treviglio - 0363/40803 - ENNE COMPUTER - Portichetto 
di Luisago - 031/920136 - C.E.E. - Vigevano - 0381/81555 - DATA STUDIO (di SERGIO CAVENAGHI) - Burago di Molgora - 039/663736 - LINEA 
UFFICIO (di ANNUNZIATA ELIO) - Cremona - 0372/24364 - P.G.P. SISTEMA - Milano - 02/2842860 - COMPUTER HOUSE - Monza - 039/362618 
TRE VENEZIE - SIGMA SYSTEM - Udine - 0432/26992 - INTERSOUND (di COPPETTI FRANCO) - Brunico - 0474/21282 - COMMERCIALE 

SISTEMI Thiene - 0445/.- MINI SYSTEM - Bolzano - 0471/32270 - PENTA - Preganziol - 0422/938535 - PINARELLO - Padova - 049/754830 - 

SYSTEM COPY - 35100 Padova - 049/44982 - PINO ANDREA - Cerea - 0442/82790 - TECNOSYSTEM - Vicenza - 0444/31152 - EMILIA ROMA¬ 
GNA - MARCHE - ABRUZZO - ADRIATICA COMPUTER - Senigallia - 071/62516 - GIMAR SISTEMI - Silvi Marina - 085/932739 - MULTIDA- 
TA - Reggio Emilia - 0522/27617 - M.R.P. TECNOSISTEMI - 40069 Zola Predosa - 051/751662 - RODAN & C. - Civitanova Marche - 0733/770386 - 
ROGANTI F.LLI - Montecassiano - 0733/59231 TOSCANA - ELECON - Piombino - 0565/33112 - MNEMO COMPUTERS - Firenze - 055/4378652 
- TECNOCOPY - Firenze - 055/352801 - LAZIO - EUROCOM - Roma - 06/7574487 - TECNOMEC - Roma - 06/484998 - CAMPANIA - PUGLIE - 
CALABRIA - GENERAL COMPUTERS - Torre Annunziata - 081/8612270 - L. & L. COMPUTERS - Bari - 080/410167 - COMPUTER SUD - Lecce - 
0832/42413 - ATLANTIC - Reggio Calabria - 0965/44671 - G.M. MARASCIO COMPUTERLINE - Montauro - 0967/48207 - SICILIA - SARDE¬ 
GNA - SIFI DATA MANAGEMENT - Catania - 095/438178 - A.E.P. COMPUTERS SYSTEM - Sassari - 079/276364 - VIMAR - S. Agata di Militel- 
lo - 0941/702771. 



DESIDERO 

: : RICEVERE UNA DOCUMENTAZIONE SULLE 

SOLUZIONI CON I COMPUTERS SHARP 

□ DISCUTERE IL MIO PROBLEMA 
SPECIFICO CON UN VOSTRO INCARICATO 


NOME_ 

SOCIETÀ_POSIZIONE 

INDIRIZZO_ 

CITTÀ_TEL_ 

















































1 220 
1230 
1 240 
1 250 
1 260 
1270 
1 280 
1290 
1300 
131 0 
1 320 
1330 
1340 
1 350 
1 360 
1370 
1380 
1 390 
1 400 
1 4 10 
1420 
1430 
1440 
1 450 
1460 
1470 
1 480 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 


REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 


INPUT: NUM* STRINGA DI 4 CIFRE 

OUTPUT: TU) VETTORE NUMERICO CONTENENTE 

L"EQUIVALENTE DI NUM* 

ER CODICE D ? ERRORE 

0=NESSUN ERRORE 
1=C-I FRA <1 0 >6 IN NUM* 


* 

* 

* 

* 

* 

* 

* 


REM ****************************************************** 

ER=0 

FOR 1=1 TO 4 

TU) =VAL 'MID* (NUM*. 1,1)) 

IF T(I) 1 OR TU) >6 THEN ER-1 

NEXT I 

RETURN 

REM ****************************************************** 


REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 
REM * 


ROUTINE PER VALUTARE UN TENTATIVO 
INPUT: 


T(I) VETTORE NUM. COL TENTATIVO 
C(I) VETTORE NUM. COL CODICE 


OUTPUT: B 
W 


NUMERO DI NERI 
NUMERO DI BIANCHI 


NB. IL. CONTENUTO DJ. T(I) VIENE PERSO 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


REM ****************************************************** 

B=0: W=0 

FOR 1=1 TO 4: W(I)=C(I): NEXT I 
FOR 1=1 TO 4 
IF WU)OT(I) GOTO 1550 
W <I)=-1 : T <I)=—2: B=B+1 
NEXT I 

FOR 1=1 TO 4 
FOR J=1 TO 4 
I F TU) < >W ( J ) GOTO 1600 
W(J)=-1 : W=W+1: GOTO 1610 


1600 NEXTJ 
1610 NEXTI 
1620 RETURN 

1630 REM ****************************************************** 


1640 REM * * 
1650 REM * ROUTINE PER FARE UN NUOVO TENTATIVO * 
1660 RÉM * * 
1670 REM * OUTPUT: C(I) NUOVO TENTATIVO * 
1680 REM * * 


1690 REM ****************************************************** 

1700 GPSUB 2220 
1710 FOR L=1 TO GU-1 
1720 FOR J=1 TO 4 


1730 
1740 
1 750 
1760 
1 770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1845 
1 850 
1 860 
1870 
1880 


T(J)=GT(L,J) 

NEXT J 
GOSUB 1480 

IF GT(L,5)=B AND GT<L,6)=W GOTO 1780 
GOTO 1700 
NEXT L 
RETURN 

REM ****************************************************** 


REM * * 
REM * ROUTINE PER ELIMINARE DALLA TABELLA DELLE POS- * 
REM * SIBILITA’ TUTTI I NUMERI TRANNE QUELLI CONTENU- * 
REM * TI IN QUESTO TENTATIVO. * 
REM * DA USARE QUANDO N+B=4 * 
REM * * 


REM ****************************************************** 

FOR 1=1 TO 6: EL(I)=I: NEXT I 
FOR 1=1 TO 4 


Se questo tentativo 

Allora la valutazione 

fosse il codice 

di 1111 sarebbe 

1112 

3 neri e 0 bianchi 

1113 

3 neri e 0 bianchi 

1114 

3 neri e 0 bianchi 

1115 

3 neri e 0 bianchi 

1116 

3 neri e 0 bianchi 


Master Mind 


Visto che il codice ha causato 1 
nero e 0 bianchi come valutazione 
al tentativo 1111, nessuno dei ten¬ 
tativi dell’esempio 3 potrebbe esse¬ 
re il codice perché se sostituiti al 
codice non danno come valutazio¬ 
ne 1 nero e 0 bianchi. 

In questo caso, le possibilità ver¬ 
rebbero ridotte a 500. 


Completamento dell’analisi 

Completando la mia analisi del 
grafo di comportamento al proble¬ 
ma, ho capito che sarebbe stato ne¬ 
cessario sviluppare un sistema per 
generare tutti i possibili 1295 codi¬ 
ci, altrimenti il computer non sa¬ 
rebbe mai stato in grado di fare dei 
tentativi. Inoltre questo generatore 
avrebbe dovuto produrre ogni co¬ 
dice solo una volta. 

Il generatore di tentativi avrebbe 
anche dovuto essere predisposto a 
funzionare in base ai risultati del 
riconoscimento delle strutture. Per 
fare questo ho usato la tabella delle 
possibilità della figura 2. 

Tutti i 1296 possibili tentativi 
possono essere generati da questa 
tabella. All’inizio i numeri conte¬ 
nuti nelle locazioni W, X, Y e Z 
sono posti uguali a 1. Poi, per ge- 


Numero 


Posizione 


da usare 


nel 





tentativo 



W 

X 

Y 

Z 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

4 

4 

4 

4 

4 

5 

5 

5 

5 

5 

6 

6 

6 

6 

6 


Esempio 3. 


Figura 2. Tavola delle possibilità. 
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nerare i tentativi successivi, la loca¬ 
zione Z varia da 1 a 6. 

Dopo le prime sei generazioni 
(1111, 1112, 1113, 1114, 1115, 
1116) la locazione Z è posta uguale 
ad 1 e quella alla sua sinistra (la Y) 
è posta uguale a 2. Quando una va¬ 
lutazione dà 0 neri e 0 bianchi, 
ogni numero del tentativo può es¬ 
sere cancellato da ogni posizione 
della tabella delle possibilità po¬ 
nendo la relativa locazione uguale 
a 0. Ogni successivo tentativo che 
contiene almeno uno 0 può essere 
scartato. 


Il modello per risolvere il problema 

Le operazioni trovate analizzan¬ 
do il grafo di comportamento pos¬ 
sono essere riunite per formare un 
modello di soluzione del problema. 
Vedi figura 3. Il modello inizia ge¬ 
nerando un tentativo (primo passo) 
che non contraddica le informazio¬ 
ni ricevute finora (secondo passo). 
Se un tentativo le contraddicesse, 
verrebbe eliminato e ne sarebbe 
generato un altro, e così via, fino a 
quando ne viene generato uno pos¬ 
sibile che verrà considerato come 
tentativo da giocare (terzo passo). 

Dopo aver ricevuto la valutazio¬ 
ne (quarto passo) questa viene usa¬ 
ta nel meccanismo di riconosci¬ 
mento delle strutture (quinto pas¬ 
so) per vedere se qualche numero 
debba essere eliminato dalla tabel¬ 
la delle possibilità. Se la valutazio¬ 
ne era 4 neri (sesto passo), il codi¬ 
ce è stato indovinato e il problema 
risolto; altrimenti il modello ritor¬ 
na al primo passo e viene ripetuto 
il tutto. 

Il listato potrà aiutare a vedere 



come funziona effettivamente il 
programma. A questo punto do¬ 
vreste essere in grado di applicare 
alcune di queste tecniche di IA ad 
altre situazioni nelle quali il com¬ 
puter debba risolvere problemi o 
prendere decisioni. ■ 


Figura 3. Diagramma di flusso del 
modello di risoluzione del proble¬ 
ma. 
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Programmazione 
ricorsiva in Basic 


Le funzioni ricorsive si 
possono programmare 
anche in Basic: basta 
creare l’ambiente 
adatto. 


di Antonio Leal 


La riproduzione di questo articolo 
è stata concessa dalla rivista Creati¬ 
ve Computing. 

Traduzione di Bruno Pescarolo. 


A molti utenti di personal 
computer la nozione di pro¬ 
gramma “ricorsivo" appare 
come un argomento elusivo, appar¬ 
tenente alla scienza dei calcolatori 
più avanzata ed ai linguaggi di pro¬ 
grammazione evoluti. Sebbene il 
Basic non sia stato progettato per 
supportare subroutine ricorsive, es¬ 
se possono essere implementate 
con minimo sforzo e con buoni ri¬ 
sultati. 

Nella codifica di programmi 
complessi, può essere risparmiata 
una grande quantità di tempo. Tut¬ 
tavia, è necessaria una qualche 
spiegazione preliminare del concet¬ 
to di ricorsività. 

Il presente articolo descrive alcu¬ 
ni dei concetti più importanti della 
programmazione ricorsiva e mostra 
come si possono usare. Gli esempi 
mostrano come programmare in 
Basic. Infine, la programmazione 
ricorsiva è applicata alla ricerca in 
un albero di gioco. 


Funzione 

Il concetto di funzione è fonda- 
mentale in matematica e informati¬ 
ca. In termini di programmazione, 
una funzione è una subroutine. 
Tuttavia, essa ha una struttura più 
ricca rispetto ad una subroutine 
Basic. Essa consiste in un nome , 
un certo numero di variabili in in¬ 
put dette argomenti o parametri , 


un corpo di istruzioni di program¬ 
ma, ed una quantità di output det¬ 
ta valore della funzione. Ecco un 
esempio di funzione scritta in for¬ 
ma matematica 

f(x,y) = x 2 +y 2 . 

La lettera / è il nome della fun¬ 
zione. Le variabili x e y sono gli ar¬ 
gomenti. Per poter usare la funzio¬ 
ne, bisogna sostituire gli elementi x 
e y con numeri e dopo il calcolo il 
risultato (valore) viene ritornato 
tramite il nome. Per esempio se 
poniamo x=3 e y =4 il risultato è 
25. 

In altre parole / (3,4) ritorna 25 
come valore di /. 

Una simpatica proprietà dei no¬ 
mi assegnati alle funzioni è che 
possono essere richiamati diretta- 
mente in altre espressioni. Per 
esempio, supponiamo che la prece¬ 
dente funzione facesse parte di un 
programma. Quindi, se scrivessimo 

b = 2+/(3,4) 

il valore della funzione (25) sareb¬ 
be aggiunto a 2 e a b verrebbe as¬ 
segnato il valore 27. Quindi, quan¬ 
do la funzione ha un nome, essa 
può essere attivata semplicemente 
usando il nome, senza usare GO- 
SUB. 

Una funzione può essere scritta 
anche in forma di subroutine. Il se¬ 
guente esempio non è possibile in 
tutti i linguaggi di programmazio¬ 
ne, ma è accettato in molti di essi, 
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Programmazione ricorsiva in Basic 




— 


SUBROUTINE F<X.Y) 


ut::» 


:: :: :t .** u n 


RETURN 


: : 


u u :i n » u n ;i li il ti a 

ti :t :t :t « n il a u n u 


Nome della subroutine e argomenti 


Istruzioni 






Ritorno 






Figura 1. 


tra cui il Pascal. Vedi figura 1. 

La subroutine ovviamente può 
essere scritta ovunque all’interno 
del programma principale ed è atti¬ 
vata chiamandola per nome. Un 
concetto molto importante relativo 
alle funzioni è lo “scopo” delle va¬ 
riabili. Le variabili specificate co¬ 
me argomento (X e Y nell’esempio 
precedente) sono sempre locali alla 
subroutine e perdono il loro signifi¬ 
cato al di fuori di essa. Per esem¬ 
pio, considerate lo scheletro di 
programma di figura 2. 

In figura 2, la variabile X usata 
nel programma principale, non è la 
stessa X usata nella subroutine. 
Quando la subroutine è attivata, la 
X del programma principale (glo¬ 
bale) è salvata e viene creata una 
nuova X (locale) per l’uso all’inter¬ 
no della subroutine. Quando viene 
restituito il controllo al programma 
principale, la vecchia X globale ri¬ 
diventa attiva, conservando il suo 
valore originale. Quindi, nell'e- 
sempio indicato, X avrebbe un va¬ 
lore 3 dopo l’uscita della subrouti¬ 
ne anche se la X locale era posta a 
4 dentro la subroutine. 

Lo scopo delle variabili suggeri¬ 
sce la nozione di “ambiente” di un 
programma, che è semplicemente 
una lista di tutte le variabili che so¬ 
no attualmente visibili e possono 
essere usate o cambiate. Quando 
l'esecuzione salta dentro e fuori 


dalle subroutine, l’ambiente cam¬ 
bia corrispondentemente, e tutto è 
regolato dal sistema. 

Funzioni ricorsive 

Una funzione (subroutine) ricor¬ 
siva è una funzione che usa se stes¬ 
sa nella propria definizione. Le de¬ 
finizioni ricorsive sono molto utili 
per descrivere certi tipi di formule 
matematiche e, come vedremo, per 
programmare problemi complessi. 

Per esempio, il fattoriale può es¬ 
sere descritto sia in forma ricorsiva 
che in forma non ricorsiva. La più 
semplice descrizione del fattoriale 
è la seguente 

x\ = 1-2-3-...-JC. 

In altri termini, x\ è il prodotto 
di tutti gli interi da 1 a r, suppo¬ 
nendo che x sia un intero positivo. 

La definizione ricorsiva di x\ è 
questa 

x\ = x (x— 1)!. 

Questa definizione usa il fatto¬ 
riale per definirlo. Essa dice che se 
si vuole sapere quanto vale *!, ba¬ 
sta moltiplicare x per (x — 1)! e dun¬ 
que il calcolo deve aspettare. Infat¬ 
ti per calcolare (x— 1 ) ! dobbiamo 
riapplicare la definizione: (*—1)! è 
semplicemente x— 1 moltiplicato 
per (jc— 2)!, e così via. 


E naturale che questo tipo di de¬ 
finizione non è utile se non c'è un 
modo di bloccarla. Ogni funzione 
ricorsiva deve avere una “regola di 
stop”. La regola è semplicemente il 
valore iniziale per x = 1. La defini¬ 
zione ricorsiva completa deve com¬ 
prendere il valore iniziale 

1 ! = 1 

x\ = x (x— 1)!. 

Ora sappiamo che quando l'ite¬ 
razione (ricorsiva) raggiunge 1, il 
risultato è 1 e la ricorsione si fer¬ 
ma. Ciò permette di “tornare 
indietro” e si possono fare tutti i 
calcoli lasciati in sospeso. La figura 
3 mostra la procedura per 5!. 

Un programma o subroutine per 
il fattoriale dovrebbe chiamare se 
stesso dal proprio interno. In altri 
termini, all’interno della subrouti¬ 
ne deve essere usato il suo stesso 
nome. Tuttavia, prima di poter fa¬ 
re questas chiamata, è necessario 
un test per vedere se la condizione 
di stop è stata raggiunta. Vedi figu¬ 
ra 4. 

Ancora, la forma sopradescritta 
è una descrizione sommaria di co¬ 
me la subroutine debba essere ri- 
strutturata, e non fa parte di nes¬ 
sun particolare linguaggio. Si noti 
che F stesso è stato usato nella li¬ 
nea 2. Per una chiamata iniziale di 
F(5) cioè 5! la subroutine chiame¬ 
rebbe se stessa 4 volte. Si dice che 
la ricorsione è a 4 livelli di profon¬ 
dità. Ogni chiamata realizza auto¬ 
maticamente un nuovo ambiente in 
cui la X locale è differente dalle 
precedenti chiamate. Quindi, non 
vanno confuse. Alla fine, all’ultima 
chiamata, quando X = 1, la condi¬ 
zione di stop è verificata nella linea 
1 e viene ritornato un 1 come risul- 
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PR OGRAMMA P RINCIPALE 


n u u tt n ;j u tt ti :t « u 

a « t: a u u a u a u tt u 

Istruzioni del programma principale 

X -- 3 

a u tt u u u :: u n u i: u 

(X globale) 

li n ii a :: u tt t; tt ;; tt 

* 

tsuuuuuuuuuuu 

3UBROUT1 ME S(X) 

n tt n tt « ii u tt tt tt u tx 


u tt tt u u a u 12 tt n u tt 

UttUUttttKUlt il Utt 

Istruzioni della subroutine 

. X=4 

(X locale) 

tt u tt tt il il a u u :t u :t 

a u u v u h u u tt tt ti u 

RETURN 

un ttunttuuuuuu 

Istruzioni del programma principale 

uitnuuu ttu a uuu 

END 



Figura 2. 


tato. A questo punto, avvengono 
tutti i ritorni di subroutine, e i cal¬ 
coli sospesi vengono completati fi¬ 
no a che la subroutine esce per l’ul¬ 
tima volta con la risposta 5!. 

Alcune funzioni ricorsive dipen¬ 
dono non solo dal precedente valo¬ 
re. Per esempio, la successione di 
Fibonacci dipende dai precedenti 
due valori. Quindi, devono essere 
dati due valori iniziali quando si 
definisce la ricorsione 

/( i) = i 
m = i 

/(*) = f (x-l)+f(x-2) 

Questa definizione dice che il va¬ 
lore della funzione è la somma dei 
precedenti due valori e fornisce la 
seguente successione: 
x : 1 2 3 4 5 6 7 8 ... 

f(x): 1 1 2 3 5 8 13 21 ... 

Ricorsività in Basic 

Non vi sono problemi nell'avere 
una subroutine che chiama se stes¬ 
sa in Basic. Il computer tiene trac¬ 
cia di tutti i punti di ritorno in ordi¬ 
ne, ma questo è tutto quello che 
può fare. Poiché gli argomenti non 
sono permessi, l'ambiente deve es¬ 
sere esplicitamente creato e salvato 


dal programmatore. Si può fare ciò 
dimensionando ogni singola varia¬ 
bile. (Per le variabili già dimensio¬ 
nate occorrerà incrementare la loro 
dimensioni di 1.) Questa dimensio¬ 
ne extra serve per contenere tutti i 
risultati intermedi della ricorsione 
e crea spazio per le variabili 
“locali”. Gli elementi di ogni varia¬ 
bile dimensionata corrispondono 
alla “profondità” della ricorsione e 
un indice tiene traccia di questa 
profondità. Ciò significa che ogni 
volta che viene fatta una chiamata 
a una subroutine, l'indice deve es¬ 
sere decrementato e, inversamen¬ 
te, ogni volta che si ha un ritorno, 
deve essere incrementato. Quando 
l’indice raggiunge 1, sappiamo che 
deve essere usata la regola di stop. 
La figura 5 mostra come program¬ 
mare il fattoriale in Basic usando la 
ricorsione. 

Si supponga che nella linea 30 si 
dia a X il valore 5. La prima chia¬ 
mata alla subroutine si ha nella li¬ 
nea 40. Alla linea 100 viene trovata 
non verificata la condizione di 
stop, e dunque X viene decremen- 
tata (a 4) e la subroutine viene an¬ 
cora chiamata. Questa volta, tutta¬ 
via, la linea di ritorno è la 130 e 
non la 50 come per la prima chia¬ 
mata. Il “ciclo” tra le linee 100 e 
120 continua fino a che X = 1, e la 


linea 100 causa un ritorno. 

Il ritorno è alla linea 130 e la su¬ 
broutine comincia a “riavvolgersi”. 
I ritorni successivi “ciclano” tra le 
linee 130 e 150 ponendo i risultati 
intermedi del calcolo in successive 
locazioni di F. Quando la ricorsio¬ 
ne è terminata (il che viene trattato 
automaticamente dal sistema), la 
subroutine ritorna per l’ultima vol¬ 
ta alla linea 50 e viene stampato il 
risultato finale F(5). (Per osservare 
il funzionamento della routine, in¬ 
serite 145 PRINT F(X)). 

La ragione per cui X deve essere 
incrementata nella linea 130 prima 
della definizione ricorsiva della li¬ 
nea 140 è che il risultato del calco¬ 
lo deve essere messo nella prossi¬ 
ma locazione di F. Se le linee fos¬ 
sero invertite, quando viene rag¬ 
giunto il più basso livello di ricor¬ 
sione e X = 1, F(X—1) farebbe ri¬ 
ferimento a F(0) che non è defini¬ 
to. Le linee 130 e 140 potrebbero 
essere invertite se la definizione ri¬ 
corsiva venisse cambiata come se¬ 
gue: 



INIZIO 

FINE 

' 


▼ 


1 

5! 

= (5)(4!) 

9 il risultato è 120 



▼ 

▲ 

2 

4! 

= (4)(3!) 

8 il risultato è 24 



▼ 

▲ 

3 

3! 

= (3)(2!) 

7 il risultato è 6 



T 

▲ 

4 

2! 

= (2)(1!) 

6 il risultato è 2 



▼ 

t 

5 

1! 

- 1 

_1 






Figura 3. 
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Programmazione ricorsiva in Basic 



130 F(X+1) = (X+1)*F(X) 

140 X = X+l. 

Tuttavia alcune versioni di Basic 
non permettono calcoli dentro le 
parentesi se sono a sinistra di un 
segno di uguale. Quindi il primo 
metodo è migliore. 

Scrivere un programma per la 
successione di Fibonacci non è 
molto più complicato. La struttura 
del programma è identica. Tuttavia 


PRO 

GRAMMfì PRINCIPALE 

10 

DIM F<100 > 

20 

F ( 1 > ~ 1 

30 

INPUT X 

40 

GOSU8 100 

50 

FRINT F(X> 

60 

STOP 

S U B R 0 U T IN E RIC 0 R SIV A 

100 

IF X=1 THEN RETURN 

1 1 o 

•%/_ \y h 

A — A — 1 

120 

GOSUB 100 

130 

x = x + :i. 

140 

F ( x > ” X * F < X-l. > 

1.50 

RETURN 


Figura 5. 


la regola di stop nella linea 100 de¬ 
ve verificare che X sia minore o 
uguale a 2 piuttosto che X sia 
uguale a 1 perché in questo caso ci 
sono due valori iniziali. Vedi la fi¬ 
gura 6. 


Ricerca negli alberi di gioco 

Questo paragrafo tratta temi più 
avanzati e presuppone alcune co¬ 
noscenze sulla programmazione dei 
giochi di scacchiera mediante 
“albero di gioco”. 

L’uso dei programmi ricorsivi 
per calcolare semplici funzioni co¬ 
me quelle degli esempi visti non è 
molto efficiente. Si possono realiz¬ 
zare con cicli più corti, più semplici 
e più veloci, che occupano meno 
spazio e sono meno complicati. 
Tuttavia, quando il problema è più 
complesso, i programmi ricorsivi 
possono far risparmiare molto tem¬ 
po di programmazione e rendere il 
programma più facile da corregge¬ 
re. Uno degli argomenti in cui le 
routine ricorsive possono aiutare è 
la ricerca negli alberi di gioco. Già 
sapete che i computer possono es¬ 
sere programmati per giocare gio¬ 
chi di scacchiera, costruendo un 
“albero” delle posizioni sulla scac¬ 
chiera usando le mosse permesse. 

Quindi, ricercando nell’albero le 
posizioni migliori, il programma 
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può fare delle previsioni, e muove¬ 
re nel modo migliore, secondo 
queste previsioni. 

Uno dei problemi che sorgono 
con gli alberi di gioco è che sono 
difficili da costruire usando i vetto¬ 
ri e le matrici disponibili nei lin¬ 
guaggi di programmazione più co¬ 
muni come il Basic. Ogni nodo del¬ 
l'albero deve contenere informa¬ 
zioni sulla sua profondità dalla ra¬ 
dice, se è un nodo di max o di min, 
tutte le informazioni che descrivo¬ 
no la posizione attuale di tastiera, 
e il suo valore calcolato combinan¬ 
do i valori di tutti i suoi successori. 

Inoltre, occorre stabilire un col- 
legamento tra ogni nodo e il suo 
predecessore, e fra ogni nodo e i 
suoi successori. Ciò è particolar¬ 
mente complicato perché non è 
sempre possibile sapere quanti suc¬ 
cessori ha un nodo. Occorre scrive¬ 
re programmi che accedano e mo¬ 
difichino questa struttura di dati ad 
albero mantenendo tutte le connes¬ 
sioni e separando i dati di un nodo 
da quelli di un altro. 

Le subroutine ricorsive possono 
eliminare la necessità di considera¬ 
re alcuni di questi problemi. Usan¬ 
do una subroutine ricorsiva, non è 
necessario costruire e mantenere 
esplicitamente una struttura di dati 
ad albero. Può essere difficile cre¬ 
derlo, ma è possibile trarre profitto 
dal modo in cui le subroutine ricor¬ 
sive si comportano, per costruire 
un albero ed eseguire una ricerca 
nello stesso tempo. Si può fare co¬ 
me segue. Supponiamo che la su¬ 
broutine stessa sia un nodo nell’al- 
bero di gioco. In questo caso, un 
nodo dell’albero, sarà più che una 
semplice collezione di dati. Sarà 
una procedura. Il nodo potrà quin- 
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di generare posizioni successive di 
scacchiera e chiamare se stesso ri¬ 
corsivamente. Il collegamento tra 
un nodo e i suoi predecessori e suc¬ 
cessori sarà mantenuto dal compu¬ 
ter automaticamente sotto forma di 
chiamate alla subroutine e punti di 
ritorno. Tutto quello che serve è 
una attenta costruzione della su¬ 
broutine in modo che possa all’oc- 
correnza trattare situazioni diffe¬ 
renti. Il seguente scheletro di pro¬ 
gramma è una descrizione di come 
dovrebbe essere fatta una tale su¬ 
broutine. Non si tratta di un pro¬ 
gramma completo, perché viene 
usato il linguaggio comune per 
spiegare cosa succede nei vari pun¬ 
ti. 

I dettagli dipenderanno dal tipo 
di gioco che si intende programma¬ 
re. Tuttavia la struttura generale 
sarà la stessa per tutti i giochi che 
usano la ricerca ad albero. Vedi fi¬ 
gura 7. 


Tutti i giochi che 
richiedono la ricerca ad 
albero possono essere 
programmati in modo 
ricorsivo. 


La variabile D è l’indice di ricor- 
sione e rappresenta il livello attua¬ 
le dell’albero. B(D) è la posizione 
di scacchiera da analizzare al livel¬ 
lo D. V(D) contiene i valori dei 
nodi, max o min secondo il tipo di 
nodo. Il tipo di nodo è contenuto 
nella variabile M che è posta a 1 
per un nodo max e a 0 per un nodo 


min. Scrivendo M = 1—M, vengo¬ 
no usati alternativamente i due va¬ 
lori. I(D) viene usato per contare il 
numero di successori di ogni nodo. 
Deve essere dimensionato da D 
per registrare quale successore è da 
esaminare ad ogni livello. 

La linea 1 è la condizione di 
stop. Se D = 1 è stato raggiunto il 
fondo dell’albero ed è il momento 
di chiamare la funzione euristica 
sulla posizione di scacchiera B(l). 

Questa funzione analizza la posi¬ 
zione di scacchiera e ritorna un va¬ 
lore in V(l) che è una misura della 
sua bontà. Quanto più alto è il nu¬ 
mero, migliore è la posizione. La 
linea 2 pone V(D) a un numero 
molto alto o molto piccolo, secon¬ 
do che il nodo sia min o max. La 
ragione di ciò sta nel fatto che più 
avanti si farà un confronto per ave¬ 
re il più grande (o il più piccolo) 
valore di tutti i successori di un no¬ 
do. Questa linea inizializza il valo¬ 
re. 

La linea 3 comincia il ciclo che 
esaminerà tutti i successori del no¬ 
do, uno alla volta, e chiamerà la 
subroutine ri corsiva per ognuno. Si 
noti che è dimensionato da D così 
che i successori di nodi e a livelli 
differenti nell’albero non vengono 
mescolati. La linea 4 è dove viene 
effettivamente generato il prossimo 
successore. Poiché l’indice di ricor- 
sione va verso IT, il prossimo suc¬ 
cessore è in D—1. Se il gioco è 
complesso, ci possono essere molte 
istruzioni in questo punto e, per 
contenere tutte le informazioni, 
può essere necessaria più di una 
variabile. 

Le prossime tre linee predispon¬ 
gono l’ambiente, chiamano la su¬ 
broutine ricorsivamente e ripristi¬ 


ni 



Figura 6. 

nano l’ambiente nella sua forma 
originale. Queste linee sono simili 
a quelle viste negli esami preceden¬ 
ti. D è il livello corrente e M com¬ 
muta da max a min e viceversa. 

Nella linea 8 viene aggiornato il 
valore del nodo corrente. È posto 
al max (o min) del suo presente va¬ 
lore e quello del successore che è 
stato appena analizzato. Quando il 
ciclo è finito, V(D) contiene il max 
(o min) di tutti i successori del no¬ 
do corrente e sarà pronto per esse¬ 
re usato dai suoi predecessori. Le 
linee 9 e 10 completano il ciclo e 
risalgono di un livello nell’albero. 

La caratteristica interessante di 
questo programma è che, ad ogni 
momento dell'esecuzione, esiste 
solo un “cammino” dalla radice. Il 
programma crea l’albero mentre 
esegue la ricerca, percorrendo i 
suoi rami in su e giù, con chiamate 
e ritorni alle subroutine. Non vi è 
una esplicita struttura di dati ad al¬ 
bero che deve essere mantenuta 
dal programmatore. Tutte le infor- 
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Programmazione ricorsiva in Basic 


1. IF D=1 THEN poni V ( 1 ) al valore della -funzione 

euristica su B<1) e RETURN 

2. Poni V(D) ad un numero molto grande se M=0 (MIN) 

o ad un numero molto piccolo se M=1 (MAX) 

3. FOR I(D)=1. TO il numero dei successori di. B(B> 

4. Sost. i t. u :i. se i B ( D--1 ) con il p r oss i mo sue c esse¬ 
re di B < D) 

5 n 0=0— 1 e M=1 ~M ( nuovo amb i en t.e ) 

6 n C h i a m a 1 a s u b r o u t i n e r i. c o r s i v a m e n t e 

7 (> D-D+1 e M= 1 -M ( vecchi o amb i ent e ) 

R. Poni V(D> al MAX o al MIN di V(D) secondo M 

9. NEXT I (D) 

10. RETURN 


Figura 8. 


mazioni necessarie sono contenute 
nella subroutine. 

Il programma descritto è una 
traccia della sola parte ricorsiva del 
programma di gioco totale. Ci sono 
altre parti principali oltre all’out¬ 
put grafico, ecc. Si tratta di (1) la 


funzione euristica, (2) il generatore 
della prossima mossa, e (3) il su¬ 
pervisore. La funzione euristica 
può essere una subroutine chiama¬ 
ta come nella linea 1 dell’esempio 
precedente. Il generatore della 
prossima mossa può essere messo 


direttamente dentro la subroutine 
o programmato come una subrouti¬ 
ne a sé stante. Questi programmi 
sono specifici al particolare gioco. 
Il supervisore, invece, può essere 
tracciato in generale. 

Il supervisore pone la scacchiera 
nella sua posizione iniziale (o in 
quella attuale se il gioco è in svol¬ 
gimento) e chiama la subroutine ri¬ 
corsiva una volta per ogni possibile 
mossa. La mossa che risulta avere 
il massimo valore è quella che sarà 
giocata dal calcolatore. Il supervi¬ 
sore è, essenzialmente, il nodo più 
alto dell’albero e, quindi, è un no¬ 
do max. Esso deve, quindi, chia¬ 
mare la subroutine ricorsiva con un 
min per farla partire. Fino a che 
non vi è una situazione di vincita o 
perdita, il programma continua a 
giocare. 

Questo programma è importante 
come la subroutine ricorsiva, e le 
due routine possono essere combi¬ 
nate molto semplicemente. Non di¬ 
menticate di salvare il nodo con il 
valore più alto nella linea 10 altri¬ 
menti verrà perso. Ciò non è ne¬ 
cessario nella subroutine. 

Anche se gli esempi precedenti 
non sono completi e devono essere 
dettagliati, mettono in luce l’enor¬ 
me potenza dei programmi ricorsi¬ 
vi. Man mano che i linguaggi evo¬ 
luti tipo Pascal diventano più po¬ 
polari, i programmi ricorsivi saran¬ 
no più semplici da scrivere e quindi 
verranno applicati in aree sempre 
diverse. 


SUPERVISORE 
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9. 

D:=B+i 








1 0 . 

Poni V(D) 

al MAX 

di 


V ( 

D) e V (D--1) 



1.1. NEXT I (D) 

12. F a i 1. a mossa c on il pi u ? a 11 o V ( B ) e c amb i a 1 a 
s c a c c h .i F.ì r a B ( D ) 

13- Se hai vinto STOP 

\ 

14, Ricevi la mossa dell'avversario e cambia 3 a 
se ac c h i er a B ( D ) 

15- Se hai perso STOP 
16. GOTO 4 


Figura 7. 
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Osborne 1 è un business computer veramente 
eccezionale. Perchè è nato da Adam Osborne, 
che più di chiunque ha scritto di computer. Perchè 
lo porti dove vuoi, piccolo, 
leggero, potente. 

Ma soprattutto perchè 
puoi comunicare con gli 
altri computer; puoi 
utilizzarlo come sistema 
word processing, grazie 
a WORDSTAR", compreso 
nel prezzo; o trasformarlo 
in formidabile sistema di 
calcolo, per memorizzare 



modelli, fare previsioni, pianificare budget, grazie a 
SUPEROALC’ compreso nel prezzo. Oppure, 
tramite MAILMERGE, stampare, registrare liste 

di nominativi e indirizzi. 

Non è tutto: Osborne 1 
è corredato di potenti 
linguaggi di 
programmazione: 

M BASIC e C BASIC e 
dispone di accessori per 
tutte le applicazioni. 

Non è eccezionale? 

Osborne 1 lo trovi in 
Microtech. Da subito. 


.AlicrGtech 


Microtech Sistemi, Via Bronzetti 20, Milano - Telefono 733.609/740.654 


Distributore per l’Italia 

IRET 

informatica 


ETHOS MILANO 












ELETTRONICA INTEGRATA 
DIGITALE 

di Erbert Taub e Donald Schilling 




Non esiste, in lingua italiana, un libro di testo così. 
Chiaro, completo, moderno, ma anche rigoroso e 
didattico. Sono alcuni tra gli aggettivi che 
costituiscono la prerogativa di questo volume. 

Per capire l’elettronica digitale bisogna avere delle 
solide conoscenze sui dispositivi a 
semiconduttore, soprattutto usati in circuiti di 
commutazione. E malgrado quest’analisi richieda 
una notevole complessità matematica, 
introducendo alcune semplificazioni, è possibile 
mantenere la trattazione ugualmente rigorosa e 
ottenere approssimazioni pienamente'accettabili. 
Come trascurare poi gli amplificatori operazionali, 
che, se a rigore non rientrerebbero nella materia, 
però trovano larga applicazione in sistemi 
completamente digitali. E poi i circuiti integrati, 
finalmente spiegati e analizzati in tutti i loro 
aspetti. Dalla vecchia logica resistore-transistor 
(RTL), funzionale nella sua semplicità 
all’esemplificazione degli aspetti fondamentali, a 
quella a simmetria complementare (CMOS). 
Questo, però, dopo aver studiato un capitolo che, 
pur non richiedendo alcuna conoscenza 
preliminare, va a fondo dei concetti di variabili 
logiche, di algebra di Boole, di analisi di circuiti 
logici. E ancora. Via via nei vari capitoli: i flip-flop, 
i registri, e i contatori (sia sincroni che asincroni), 
i circuiti logici atti ad eseguire operazioni 
matematiche, le memorie a semiconduttore (RAM, 

ROM, EPROM.), l’interfacciamento tra segnali 

analogici e digitali (multiplexer, circuiti sample 

and hold.convertitori d/a e a/d), i 

temporizzatori. Tutto con oltre 400 problemi, dai 
più semplici ai più sofisticati, in cui vengono 
presentati i circuiti tipici che si trovano nella 
pratica. 

Un testo quindi non solo per gli specialisti e per 
gli studenti universitari, ma che si adatta 
magnificamente agli Istituti Tecnici. 

Un testo che, speriamo per gli studenti, la scuola 
non debba scoprire tra alcuni anni. 


SOMMARIO 

Dispositivi Elettronici Fondamentali; Amplificatori Operazionali e 
Comparatori; Circuiti Logici; Logica Resistore-Transistore e Logica 
ad Iniezione Integrata; Logica Diodo-Transistore; Logica 
Transistore-Transistore, Logica ad Accoppiamento di Emettitore; 
Porte MOS; I Flip-Flop; Registri e Contatori; Operazioni Aritmetiche; 
Memorie a Semiconduttore; Interruttori Analogici; Conversione 
Analogico-Digitale; Circuiti di Temporizzazione; Linee di 
Trasmissione; Problemi; Alcuni Esempi di Specifiche. 
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Da dove vengono 
i termini dell’informatica 


L a posizione di predominio degli Stati Uni¬ 
ti nel settore dell’informatica e dell’indu- 
stria elettronica in generale ha imposto 
alle diverse lingue (francese, tedesco, italiano) 
il modello della terminologia anglo-americana. 
La gran parte dei termini specializzati sono 
dunque “prestati” all’italiano, e talvolta vengo¬ 
no usati nella grafia originale, mentre altre vol¬ 
te vengono “italianizzati”. 

L’eccezione di maggior rilievo è proprio la 
parola informatica, apparsa nel lessico italiano 
nel 1968 o poco prima. La sua diffusione è do¬ 
vuta al largo uso che ne hanno fatto anche i 
politici da quando, nel 1968 appunto, un grup¬ 
po di esperti nominato dal Ministero del bilan¬ 
cio e della programmazione l’accolse nella re¬ 
dazione del cosiddetto Progetto 80, il rapporto 
preliminare al programma economico nazionale 
1971-75. 

Ma informatica non è una parola di origine 
italiana. Il termine deriva invece dal francese 
informatique sul quale si è modellato anche l’in¬ 
glese informatics (oggi usato raramente) e il te¬ 
desco Informatik. 

Informatique ha una nascita ben documenta¬ 
ta: il termine è stato proposto nei primi anni ’60 
da Philippe Dreyfus, direttore generale del 
Centre d’analyse et programmation (CAP) in 
Francia, in una seduta dell’Association frano¬ 
se de calcul et traitement de l’information. 
Sembra che sia stato costruito partendo da in- 
formation e arrivando a informatique sull’esem¬ 
pio di mathématique, physique, ecc. 

Informatica, dunque, derivando dal francese, 
è l’eccezione che conferma la regola. La quale 
afferma che la maggior parte dei termini del 
lessico dell’informatica derivano dall’anglo¬ 
americano. Parlavamo in questo senso di 
“prestiti linguistici”. Tali prestiti possono classi¬ 
ficarsi in due categorie: quelli che esprimono 
concetti per cui già esiste un termine nazionale, 
e quelli che indicano concetti per cui non esiste 
un termine nazionale corrispondente. 

Nel primo gruppo troviamo parole come 
computer, in italiano viene utilizzato assieme a 
calcolatore e elaboratore. Tutti e tre i termini 
hanno oggi ragione di esistere, assieme ad altri 


come calcolatrice, per alcune sfumature di si¬ 
gnificato che le diversificano. 

Nel secondo gruppo troviamo hardware e 
software, parole che esprimono concetti non al¬ 
trimenti esprimibili in italiano, e quindi non 
traducibili. 

Per curiosità, possiamo ricordare che in 
Francia hanno tentato di farlo, proponendo di 
volta in volta matériel e programmerie; meca- 
noide e programmoide ; mécanectronique e intel- 
letronique. 

In italiano, per fortuna, ogni tentativo di tra¬ 
durre in una sola parola rispettivamente il con¬ 
cetto di hardware e software è caduto nel nulla 
(alcuni tentativi: strumentazione e apparecchia¬ 
ture per hardware; programmeria e program¬ 
matica per software). E ora la stessa sorte toc¬ 
cherà a firmware, il termine che si pone tra 
hardware e software e che vuole indicare 
“software contenuto nell’hardware” (come le 
informazioni delle rom). 

Nei prossimi numeri di questa rubrica tornere¬ 
mo su questi argomenti, e parleremo in particola¬ 
re del modo corretto di usare i termini stranieri 
dell’informatica. m 


L’origine dei file 

La parola angloamericana file, che si pronuncia 
“fail” ha in origine molti significati. Tra gli altri: 
Urna, persona astuta, fila, schedario, archivio. Scri¬ 
ve Carlo Rossetti nel libro I tranelli dell’inglese 
(Mondadori): “Come verbo vale alle volte classifi¬ 
care, mettere agli atti, archiviare [...] Come sostanti¬ 
vo vale anche raccolta di documenti, di giornali [...] 
Il motivo è che si chiamavano in Inghilterra files 
quelle che i nostri vecchi archivisti chiamavano filze 
[cioè fasci di documenti uniti assieme per essere 
collocati in archivio] e, cessato l’uso di esse, il ver¬ 
bo to file restò come sinonimo di ordinare, classifi¬ 
care, registrare carte e documenti in un pubblico 
ufficio...” 

Oggi il termine file è entrato nel gergo dell’infor¬ 
matica col significato di collezione ordinata di re¬ 
cord. In italiano si potrebbe tradurre con archivio 
(mai con flusso come recentemente ci è più volte 
capitato di vedere), ma ha avuto più fortuna il ter¬ 
mine originale: il file, i file (al plurale, senza s fina¬ 
le). 
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PROGRAMMI PER IL SINCLAIR ZX81 

Tutti i programmi sottoelencati sono registrati su cassetta. 

Se non è specificata la dicitura “1K", necessitano dell'espansione di memoria. 


Sono marcate con asterisco le cassette che possono essere usate anche sullo ZX80 con ROM 8K 

CODICE 

NOME E DESCRIZIONE 

PREZZO 

VENDITA 

TF/0100-01 

* SEI GIOCHI IN INGLESE (1K) 

ORBIT - SNIPER - METEORS - LIFE 

WOLF PACK - GOLF 

13.000 

TF/0100-02 

GIOCHI EDUCATIVI IN INGLESE 

MATEMATICA - OPERAZIONI FRAZIONI 

DIVERSI GRADI DI DIFFICOLTA' 

13.000 

TF/0100-03 

* PROGRAMMI GESTIONALI IN INGLESE 

AGENDA TELEFONICA - FINANZA PERSONALE - BLOCK NOTES 

13.000 

TF/0100-04 

* SEI GIOCHI IN INGLESE 

LUNAR LANDING - TWENTY ONE - COMBAT 

SUB STRIKE - COBE BREAKER - MAYDAY 

13.000 

TF/0100-05 

• GIOCHI EDUCATIVI IN INGLESE (1K) 

OPERAZIONI ELEMENTARI PER BAMBINI 

CON QUATTRO GRADI DI DIFFICOLTA’ 

13.000 

TF/0100-10 

SCACCHI IN INGLESE 

SI GIOCA CONTRO IL CALCOLATORE 

CON DIVERSI GRADI DI DIFFICOLTA' 

26.000 

TF/0100-11 

* VU-CALC IN INGLESE 

POTENTE STRUMENTO DI CALCOLO ADATTO 

A RISOLVERE DIVERSI PROBLEMI 

26.000 

TF/0100-12 

FANTASY GAMES IN INGLESE 

GIOCHI DI FANTASIA PER TUTTI 1 GUSTI 

26.000 

TF/0101-02 

* GIOCO SCACCHI 

QUATTRO LIVELLI DIFFICOLTA' - LIBERTA' 

DI DISPOSIZIONE PEZZI - SOLUZIONE PROBLEMI 

26.000 

TF/0101-04 

VISIZXCALC 

POTENTE STRUMENTO DI CALCOLO ADATTO 

A RISOLVERE DIVERSI PROBLEMI 

26.000 

TF/0101 -06 

UNDICI GIOCHI (1K) 

DIVERTIMENTO E BUONI ESEMPI DI PROGRAMMAZIONE 

IN BASIC E LINGUAGGIO MACCHINA 

17.000 

TF/0101-08 

LABIRINTO TRIDIMENSIONALE 

DIVERSI LIVELLI DI DIFFICOLTA' 

PROGRAMMAZIONE DI ALTO LIVELLO CON GRAFICA OTTIMA 

17.000 

TF/0101-10 

TRE GIOCHI SPECIAL (1K) 

USATE IL SINCLAIR COME UN ORGANO 

VEDETE 1 BATTERI CHE SI RIPRODUCONO 

17.000 

TF/0101-12 

* GESTIONE PICCOLI ARCHIVI 

GESTIONE COMPLETA DI PICCOLI ARCHIVI 

17.000 

TF/0101-14 

* SIMULATORE CUBO MAGICO TRIDIMENSIONALE 

PER GLI APPASSIONATI DEL CUBO 

MENO FATICOSO DEL CUBO REALE 

17.000 

TF/0101-16 

* RISOLUTORE CUBO MAGICO 

PER RISOLVERE IL CUBO IN POCO PIU' DI UN MINUTO 

17.000 

TF/0101-18 

‘DEFENDER 

UN PO’ DI BRIVIDO CON IL SINCLAIR 

VELOCITA' ECCEZIONALE 

17.000 

TF/0101-20 

STAR-TREK 

MISSIONE GALATTICA CON IMPREVISTI 

ED EMOZIONI. QUATTRO LIVELLI DIFFICOLTA' 

17.000 

TF/0101-22 

CENTI PEDE 

PROVATE A DISTRUGGERE IL BRUCO CHE SI 

DIVIDE SE LO COLPITE - BRAVO CHI CI RIESCE! 

17.000 

TF/0101-24 

ASTEROIDI 

UN BUON PASSATEMPO PER VOI E PER 1 VOSTRI AMICI 

17.000 

TF/0101 -26 

TIRANNOSAURO 

PER CHI SI ANNOIA COL LABIRINTO - GRAFICA 

DINAMICA E TERRORE 

17.000 

TF/0101-28 

zuc 

GIOCO AFFASCINANTE PER UNO O DUE GIOCATORI 

NON USATELO TROPPO! 

17.000 

TF/0102-02 

* SETTE GIOCHI 

BIORITMO - 21 - CONTO ALLA ROVESCIA - HAMMURABI - 
ROULETTE RUSSA - FUGA DAL CASTELLI - METEORITI 

22.000 

TF/0102-04 

* SETTE GIOCHI 

MASTER-MIND - ORBITA - GOLF - BOMBARDAMENTO 

LANCIA MINE - SOS SOS - CAMMELLO 

22.000 

TF/0102-06 

* SETTE GIOCHI 

ALLUNAGGIO - SLALOM - CACCIA SOTTOMARINA - ALIENI 

TIRO RAPIDO - ATTACCO MARZIANO - LA GRANDE RAPINA 

22.000 


TF/0102-08 

* SETTE GIOCHI 

SUPER AVVENTURA - SOLITARIO - REVERSE - LABIRINTO 
ABBATTI IL MURO - GOLF - GIU' DENTRO 

22.000 

TF/0102-10 

* SETTE GIOCHI 

BATTAGLIA NAVALE - BUCHI NERI - ODISSEA - MEMORY 
ANAGRAMMI - ARMA GIOVIANA - TRENI IN CORSA 

22.000 

TF/0102-12 

‘ GESTIONE FINANZIARIA PERSONALE 

POSSIBILITÀ' DI MEMORIZZARE 1 CONTI 

SU NASTRO 

22.000 

TF/0102-14 

* AGENDE: 

RUBRICA INDIRIZZI ARRICCHITA - ARCHIVIAZIONE NOTIZIE 

CON POSSIBILITÀ' RICERCA 

22.000 

TF/0102-16 

‘ MATEMATICA E FISICA 

FRAZIONI - STATISTICA - TEMPERATURE 

PROBLEMI - CONVERSIONI DI BASE 

22.000 

TF/0102-18 

* MATEMATICA, FISICA E VOCABOLARIO 

SOMMARE DIVERTENDOSI - LA BILANCIA - CALCOLO DEI VOLUMI 
MOLTIPLICAZIONI - VOCABOLI 

22.000 

TF/0102-20 

* TOOL-KIT 

STRUMENTO INDISPENSABILE AD OGNI PROGRAMMATORE 

CHE VOGLIA AFFINARE LE SUE ABILITA' 

22.000 

PROGRAMMI PER IL TRS-80 MOD. Il 

1 programmi sottoelencati sono forniti su disco 8”. 

CODICE NOME E DESCRIZIONE 

PREZZO 

VENDITA 

TF/4502-00 

INVENTORY CONTROL 

3000 ARTICOLI DI MAGAZZINO - 200 FORNITORI 

S. SCORTA - DIVISIONE IN CLASSI - STATISTICHE 

345.000 

TF/4506-00 

MAILING LIST 

3000 NOMI E INDIRIZZI IN FORMATO COMPATTO 

2000 IN FORMATO ESPANSO - SELEZIONI E STAMPE 

140.000 

TF/4507-00 

MAILING LIST II (RICHIEDE 2 DISK) 

COME IL MAILING LIST MA SE USATO CON LO 

SCRIPSIT PERMETTE LA STAMPA DI CIRCOLARI SELEZIONATE 

210.000 

TF/4512-00 

VERSA FILE II 

CREATEVI IL VOSTRO SISTEMA DI CLASSIFICAZIONE 
AUTOMATICA DELLE INFORMAZIONI - FACILE DA USARE 

125.000 

TF/4511-00 

VISICALC II 

SUPERPROGRAMMA CHE GESTISCE COMPLESSE PROIEZIONI 

E GRANDI QUANTITÀ’ DI DATI PER SIMULAZIONI 

420.000 

TF/4510-00 

PROFILE II 

GESTIONE DI MOLTI DATI CON MOLTI CRITERI DI 

SELEZIONE - COLLEGAMENTO ALLO SCRIPSIT - STAMPE 

340.000 

TF/4530-00 

SCRIPSIT II 

UNO DEI SISTEMI DI GESTIONE DEI DATI FRA 

1 PIU' POTENTI SUL MERCATO 

620.000 

TF/4540-00 

STATISTICAL ANALISYS 

STATISTICHE - VARIANZE - COVARIANZE - ISTOGRAMMI - 
CORRELAZIONI - FREQUENZE - ECC. 

180.000 

TF/4701-00 

FORTRAN 

STANDARD ANSI-66 - EDITORE - COMPILATORE - 
EDITORE DI LINEA - BIBLIOTECA SOTTOPROGRAMMI 

520.000 

TF/4702-00 

EDITOR/ASSEMBLER 

EDITORE - MACROASSEMBLER - EDITORE DI LINEA 

BIBLIOTECA FORTRAN - TABELLA CORRISPONDENZE 

350.000 

TF/4703-00 

COBOL 

VERSIONE ESPANSA ANSI-74 - ISAM MULTICHIAVE 
ACCEPT/DISPLAY - DEBUG - MODULO RUN-TIME 

520.000 

TF/4704-00 

rnnm pi in.timf 

PER L’ESECUZIONE DI PROGRAMMI SCRITTI 

E COMPILATI COL COBOL COMPILER 

600.000 

TF/4705-00 

BASIC COMPILER 

ISAM MONOCHIAVE - 14 CIFRE DI CALCOLO 

MODULO RUN-TIME - NON COMPATIBILE COL BASIC INTERPRETE 

430.000 

TF/4706-00 

BASIC RUN-TIME 

PER L'ESECUZIONE DI PROGRAMMI SCRITTI 

E COMPILATI COL BASIC COMPILER 

60.000 

TF/4710-00 

TEXT EDITOR 

SI PUÒ' INTEGRARE IN OGNI LINGUAGGIO DEL MOD. 2 
RICERCHE E SOSTITUZIONI GLOBALI PIU’ ALTRO. 

150.000 

TF/4714-00 

REFORMATTER (RICHIEDE 2 DISCHI) 

SCRITTURA - LETTURA - TRASFERIMENTO DI ARCHIVI 

TRA DISCHI TRSDOS E DISCHI IMB 3741/3742 

450.000 







PROGRAMMI PER IL TRS-80 MOD. Ili VERSIONE DISCO 

La minima configurazione per l’uso dei programmi presentati è indicata a fianco del nome. 
Tutti i programmi sono in inglese 


CODICE 

NOME E DESCRIZIONE 

PREZZO 

VENDITA 

TF/1508-00 

IN-MEMORY INFORMATION (16K) 

CLASSIFICAZIONE DELLE INFORMAZIONI 

SALVATAGGIO E RICERCA SU DISCO 

36.000 

TF/1551-00 

DISK MAILING LIST 

PIU’ POTENTE DELLA VERSIONE SU CASSETTA 

70.000 

TF/1553-00 

INVENTORY CONTROL (32K 2 DISCHI) 

FINO A 1000 ARTICOLI CON RAPPORTI SULLE 

VENDITE E LE ROTAZIONI DEL MAGAZZINO 

170.000 

TF/1558-00 

BUSINESS MAILING LIST (32K 2 DISCHI) 

FINO A 990 NOMI - CON 48K E 4 DISCHI 

2970 NOMI) 

170.000 

TF/1559-00 

MANUFACTURING INVENTORY CONTROL (32K 2 DISCHI) 

GESTIONE DELLE DISTINTE BASE - 20 PRODOTTI 

FINITI e 1900 MATERIE PRIME PER DISCO 

320.000 

TF/1562-00 

PROFILE (32K 1 DISCO) 

GESTIONE DI ARCHIVI CON RICERCHE MULTIPLE 

ARCHIVI ACCESSIBILI DA PROGRAMMI UTENTE 

135.000 

TF/1563-00 

SCRIPSIT DISK (32K 1 DISCO) 

PROCEDURA DI TRATTAMENTO DELLA PAROLA 

STAMPE MULTIPLE - FACILE EDITING 

150.000 

TF/1565-00 

MICROFILES (32K 1 DISCO) 

VERSIONE SOFISTICATA DEL PROFILE 

VELOCISSIMO - COMANDI A SINGOLO TASTO 

185.000 

TF/1567-00 

VISICALC MOD. 3 (32K 1 DISCO) 

SUPERPROGRAMMA CHE PERMETTE DI LAVORARE 

CON PROIEZIONI E MODELLI DI SIMULAZIONE 

175.000 

TF/1569-00 

VISICALC AVANZATO MOD. 3 (32K 1 DISCO) 

UNISCE ALLA POTENZIALITÀ' DEL VISICALC 

L'ENORME FLESSIBILITÀ' DEL MOD. 3 

300.000 

TF/1603-00 

PERSONAL FINANCE DISK (16K) 

FORNITO IN VERSIONE CASSETTA PUÒ' ESSERE 

ADATTATO AL DISCO (FINO A 32K 2 DISCHI) 

35.000 

TF/2010-00 

DISK BASIC COURSE (16K 1 DISCO) 

UN GRANDE CORSO SU 4 DISCHI CON TUTTE 

LE PIU' POTENTI ISTRUZIONI DEL BASIC MOD. 3 

60.000 

TF/1604-00 

VERSAFILE (32K 1 DISCO) 

SCRIVETE CIO’ CHE VI VIENE IN MENTE E 

IL TRS-80 LO RICORDA - CHIEDETEGLIELO! 

50.000 

TF/2201-00 

FORTRAN (32K 2 DISCHI) 

COMPILATORE - EDITORE DI TESTI - 
EDITORE DI LINEA - LIBRERIA 

160.000 

TF/2202-00 

EDITOR/ASSEMBLER DISK (32K 2 DISCHI) 

ASSEMBLATORE - EDITORE DI TESTI 

EDITORE DI LINEA - TABELLA DELLE CORRISPONDENZE 

160.000 


TF/2000-00 

DEBUG (16K) 

PROGRAMMA DI CONTROLLO E DI ESECUZIONE 

PER PROGRAMMI IN LINGUAGGIO MACCHINA IN MEMORIA 

40.000 

TF/2001-00 

T-BUG (16K) 

CARICA UN PROGRAMMA IN LINGUAGGIO MACCHINA 

DA CASSETTA E NE PERMETTE IL DEBUG 

35.000 

TF/2002-00 

EDITOR-ASSEMBLER (16K) 

PERMETTE D’INTRODURRE UN PROGRAMMA IN LINGUAGGIO 
SIMBOLICO ZILOG E DI ASSEMBLARLO 

50.000 

TF/2003-00 

LEVEL 1 COURSE (4K) 

CORSO DI BASIC LIV. 1 

30.000 

TF/2005-00 

BASIC COURSE LEVEL 2 PT.1 (16K) 

CORSO DI BASIC ELEMENTARE - PRIMA PARTE 

30.000 

TF/2006-00 

BASIC COURSE LEVEL 2 PT. 2 (16K) 

CORSO DI BASIC ELEMENTARE - SECONDA PARTE 

35.000 

TF/2009-00 

TINY PASCAL TAPE (16K) 

COMPILATORE DI UN SUBSET DEL LINGUAGGIO 

PASCAL - POTENZIALITÀ' MAI VISTA! 

38.000 

PROGRAMMI PER IL TRS-80 POCKET COMPUTER 


Tutti i programmi sono forniti su cassetta e sono in inglese 


CODICE 

NOME E DESCRIZIONE 

PREZZO 

VENDITA 

TF/3511-00 

CIVIL ENGINEERS 

PROGRAMMI DI INGEGNERIA - CALCOLO TELAI - 
SFORZI Al BULLONI - TRAVI INCASTRATE - ECC. 

42.500 

TF/3513-00 

AVIATION 

CALCOLO DEL PIANO DI VOLO - ANGOLO DI DERIVA 
CONVERSIONI TRA UNITA’ DI MISURA - ECC. 

42.500 

TF/3514-00 

MATH DRILL 

ESERCIZI PER GLI SCOLARI DELLE PRIME CLASSI 

POSSIBILITÀ' DI INTRODURRE NUOVI PROBLEMI 

38.000 

TF/3515-00 

GAMES ONE 

CANNIBALI E MISSIONARI - NIM - ATTERRAGGIO 

NELLO SPAZIO - CACCIA AL TESORO - ECC. 

38.000 

TF/3516-00 

BUSINESS MARKETING 

METODO DELLA MEDIA MOBILE PER IL CALCOLO E 

LA CORREZIONE AUTOMATICA DELLE PREVISIONI - ECC. 

35.000 

TF/3517-00 

BUSINESS FINANCE 

SETTE PROGRAMMI DIFFERENTI PER AIUTARE 

L’UOMO D'AFFARI - CALCOLI INTERESSI - GIORNI - ECC. 

35.000 

TF/3518-00 

PERSONAL FINANCE 

GESTIONE DEL BILANCIO FAMILIARE - GESTIONE 

C/C BANCARIO - INTERESSI - CONVERSIONI - ECC. 

35.000 


PROGRAMMI PER IL TRS-80 COLOR COMPUTER 


TF/2204-00 BASIC COMPILER (40K 2 DISCHI) 280.000 

TUTTA LA POTENZA DEL LINGUAGGIO MACCHINA 
DAL BASIC - INCOMPATIBILE CON IL BASIC INTERPRETE 


Tutti i programmi sono distribuiti sotto forma di CARTRIDGE (memoria allo stato solido). 
Tutti i programmi sono in inglese. 

Tutti i programmi contrassegnati da asterisco richiedono l'uso di joystick. 


CODICE NOME E DESCRIZIONE 


PREZZO 

VENDITA 


PROGRAMMI PER IL TRS-80 MOD. Ili VERSIONE CASSETTA 

La minima configurazione per l’uso dei programmi presentati è indicata a fianco del nome. 
Tutti i programmi sono in inglese 


CODICE 

NOME E DESCRIZIONE 

PREZZO 

VENDITA 

TF/1502-00 

IN-MEMORY PROGRAM (16K) 

CLASSIFICAZIONE DELLE INFORMAZIONI 

SALVATAGGIO E RICERCA 

32.000 

TF/1503-00 

MAILING LIST (16K) 

GESTIONE INDIRIZZI CON STAMPA 

ETICHETTE - 80 NOMI PER VOLTA OGNI 16K 

35.000 

TF/1505-00 

SCRIPSIT (16K) 

PROGRAMMA COMPLETO DI TRATTAMENTO 

DEI TESTI - MOLTO POTENTE 

120.000 

TF/1602-00 

PERSONAL FINANCE (4K) 

GESTION ENTRATE E USCITE FAMILIARI 

GESTIONE BILANCIO MENSILE 

30.000 

TF/1603-01 

PERSONAL FINANCE DISK (16K) 

FORNITO IN VERSIONE CASSETTA PUÒ' ESSERE 

ADATTATO AL DISCO (FINO A 32K 2 DISCHI) 

35.000 

TF/1605-00 

ASTROLOGY (16K) 

PRODUZIONE DI OROSCOPI PERSONALI SE COLLEGATO 

AD UNA STAMPANTE PRODUCE IL QUADRO ASTRALE 

50.000 

TF/1701-00 

MATHEMATIC COURSE (4K) 

INSEGNA Al BAMBINI LE 4 OPERAZIONI 

37.000 

TF/1702-00 

ALGEBRA COURSE (4K) 

IMPARARE L’ALGEBRA È FACILE! - E NON È 

NECESSARIO ASPETTARE DI FREQUENTARE LE MEDIE! 

30.000 

TF/1703-00 

STATISTIC COURSE (16K) 

PER IMPARARE AGEVOLMENTE E FACILMENTE 

AD USARE LE TEORIE STATISTICHE - ANCHE PER GRANDI 

50.000 

TF/1705-00 

ADVANCED STATISTICS (16K) 

INTEGRA E COMPLETA IL CORSO DI STATISTICA 

CON QUALCOSA DI PIU’ COMPLESSO 

80.000 

TF/1706-00 

I.Q. BUILDING (16K) 

CALCOLO E MIGLIORAMENTO DEL PROPRIO 

QUOZIENTE D'INTELLIGENZA TRAMITE SEMPLICI TEST 

50.000 

TF/1712-00 

SHOW & SPELL (16K) 

FACILE CORSO DI GRAMMATICA INGLESE 

PER BAMBINI 

60.000 


TF/3019-00 ROM DIAGNOSTICA 39.000 

CONTROLLO DELLA PERFETTA EFFICIENZA 
DEL VOSTRO CACOLATORE 

TF/3050-00 SCACCHI 90.000 

DA ALLENAMENTO, MA ANCHE DA COMBATTIMENTO! 

TF/3051-00 * QUASAR COMMANDER 60.000 

RADAR - PILOTA AUTOMATICO - CAMPI DI FORZA 
DIVERSI LIVELLI DIFFICOLTA' 

TF/3052-00 * PINBALL " 60.000 

IL CLASSICO GIOCO DEL FLIPPER ORA ANCHE 
SUL TELEVISORE - DA 1 A 4 GIOCATORI 

TF/3055-00 CHECKERS 60.000 

GIOCO DELLA DAMA A DUE LIVELLI DI DIFFICOLTA’ 

PREVEDE LE 3 MOSSE SUCCESSIVE 

TF/3056-00 * SUPER BUSTOUT 60.000 

GIOCO RAPIDO PER 1-4 GIOCATORI - SINGOLO 
O IN EQUIPE - SFONDATE LE LINEE COL PALLONE 

TF/3057-00 * DINO WARS (16K CONSIGLIATI) 70.000 

DUE GIOCATORI ALLE PRESE CON I DINOSAURI 
GRAFICA E SONORO REALISTICI 

TF/3058-00 * SKILING (16K CONSIGLIATI) 70.000 

DISCESA SCIISTICA CONTRO IL TEMPO 
VISTA CON GLI OCCHI DELLO SCIATORE 

TF/3059-00 * COLOR BACKGAMMON 60.000 

CLASSICO GIOCO DI SOCIETÀ’ - CONTRO 
IL CALCOLATORE O UN ALTRO AVVERSARIO 

TF/3060-00 ' SPACE ASSAULT 50.000 

GLI EXTRATERRESTRI VI INVADONO LO SCHERMO 
E VI ATTACCANO! - BUONA FORTUNA! 

TF/3061-00 * ART GALLERY (16K CONSIGLIATI) 80.000 

CREATE LA VOSTRA GALLERIA DI QUADRI 
MODERNI - CONSIGLIATI I JOYSTICK 

TF/3063-00 ‘ PROJECT NEBULA 90.000 

RESPINGETE GLI INVASORI DELLA VOSTRA 
GALASSIA - 4 LIVELLI - APPASSIONANTE! 

TF/3103-00 COLOR FILE 60.000 

PICCOLO SISTEMA DI GESTIONE PER TANTI 
ARCHIVI - SI USA COL REGISTRATORE A CASSETTE 

TF/3101-00 PERSONAL FINANCE 90.000 

PIANIFICATE IL BUDGET FAMILIARE 


COMPARATE ENTRATE E USCITE - PREVEDETE IL BILANCIO 





60.000 


TF/1130-00 


120.000 


TF/3151-00 

* BINGO MATH 

INSEGNA LE 4 OPERAZIONI E IL RICONOSCIMENTO 

DEI NUMERI - 1-2 GIOCATORI 

TF/3152-00 

TYPING TUTOR 

ESERCIZI BASATI SU LETTERE E PAROLE 

CONTROLLA VELOCITA' - RIFLESSI - ERRORI 

TF/3153-00 

LEARNING LAB 

COMBINAZIONE DI LOGICA E TESTI PER 

INSEGNARE IL COLOR BASIC - ORGANIZZAZIONE E STESURA 

TF/3154-00 

HANDY MAN 

CALCOLO DELLE ESATTE NECESSITA' DEL LAVORO 

DEL BRICOLAGE - MATERIALI - CONSIGLI 

PROGRAMMI PER IL BMC IF 800 MOD. 20 

Tutti i programmi sottoelencati sono forniti su disco 5". 

CODICE NOME E DESCRIZIONE 

TF/2502-00 

FORTRAN-80 (RICHIEDE IL CP/M) 

EDITORE - COMPILATORE - EDITORE DI 

LINEA ANSI-66 

TF/2504-00 

BASIC COMPILER (RICHIEDE IL CP/M) 

RENDE PIU’ VELOCI 1 PROGRAMMI IN BASIC 

INTERPRETE 

TF/2506-00 

MBASIC (RICHIEDE IL CP/M) 

BASIC INTERPRETE 

TF/2508-00 

T-MAKER 2 (RICHIEDE IL CP/M) 

GESTIONE DI TESTI E ARCHIVI IN COMBINAZIONE 

CON TUTTI 1 TIPI DI CALCOLO NUMERICO 

TF/2510-00 

SUPERCALC (RICHIEDE IL CP/M) 

IL VOSTRO FOGLIO ELETTRONICO A COLORI 

CALCOLI E PRVISIONI FINANZIARIE 

TF/2512-00 

WORD STAR (RICHIEDE IL CP/M) 

L'ULTIMO E IL PIU' PERFEZIONATO PROGRAMMA 

PER GESTIONE DI TESTI - PUÒ' TUTTO' 

TF/2514-00 

WORD INDEX (RICHIEDE IL CP/M) 

IN ABBINAMENTO AL WORD STAR PERMETTE 

LE STAMPE DI MANUALI - INDICE E RIASSUNTI AUTOMATICI 

TF/2516-00 

COBOL-80 (RICHIEDE IL CP/M) 

COMPILATORE ANSI-74 - ACCEPT/DISPLAY - 
EDITORE 

TF/2518-00 

DBMS (RICHIEDE IL CP/M) 

GESTIONE COMPLETA DI GRANDI ARCHIVI 

RICERCHE MULTICHIAVE - STAMPE DI TUTTI 1 TIPI 

TF/2520-00 

ARCHIVI (IN OKI-BASIC) 

IL DISCO CONTIENE DIVERSI PROGRAMMI 

DI ARCHIVIO PIU' UN DEMO E UN PROGRAMMA TYPEWRITER 


60.000 

80.000 

60.000 


PREZZO 

VENDITA 

800.000 

650.000 

300.000 

700.000 

500.000 

800.000 

300.000 

1.300.000 

1 . 000.000 

400.000 


PROGRAMMI PER IL COMMODORE (LINEA 3000 - 4000 - 8000) 

Tutti i programmi sottoelencati sono forniti su disco 5". 

Per ogni programma verrà specificato il modello 


CODICE 

NOME E DESCRIZIONE 

PREZZO 

VENDITA 

TF/1102-00 

FATTURAZIONE MANUALE (3000) 

GESTIONE CLIENTI - EMISSIONE FATTURE 

E TRATTE - SENZA CODIFICA MAGAZZINO 

700.000 

TF/1104-00 

GESTIONE CONDOMINII (3000) 

GESTIONE DI PIU' SCALE - EMISSIONE AUTOMATICA 

LETTERE - CIRCOLARI - SOLLECITI 

800.000 

TF/1106-00 

GESTIONE CONDOMINII (4000) 

GESTIONE DI PIU' SCALE - EMISSIONE AUTOMATICA 

LETTERE - CIRCOLARI - SOLLECITI 

800.000 

TF/1108-00 

GESTIONE COMDOMINII (8000) 

GESTIONE DI PIU' SCALE - EMISSIONE AUTOMATICA 

LETTERE - CIRCOLARI - SOLLECITI 

800.000 

TF/1110-00 

WORD PROCESSOR (8000) 

PROCEDURA COMPLETA DI TRATTAMENTO DEI TESTI 
PERMETTE CIRCOLARI SELEZIONATE 

630.000 

TF/1112-00 

ASSEMBLER (3000) 

EDITORE - ASSEMBLATORE SIMBOLICO 6502 

115.000 

TF/1114-00 

PASCAL (3000) 

SUBSET UCSD PASCAL - COMPILATORE - EDITORE 

115.000 

TF/1116-00 

GESTIONE LABORATORI ANALISI MEDICHE (3000) 

GESTIONE COMPLETA DI UN LABORATORIO - STAMPA 

1 DOCUMENTI PER GLI ENTI - STATISTICHE 

900.000 

TF/1118-00 

GESTIONE LABORATORI ANALISI MEDICHE (4000) 

GESTIONE COMPLETA DI UN LABORATORIO 

STAMPA 1 DOCUMENTI PER GLI ENTI - STATISTICHE 

900.000 

TF/1120-00 

GESTIONE LABORATORI ANALISI MEDICHE (8000) 

GESTIONE COMPLETA DI UN LABORATORIO 

STAMPA 1 DOCUMENTI PER GLI ENTI - STATISTICHE 

900.000 

TF/1122-00 

VISICALC (4000 -1- ROM AGGIUNTIVA FORNITA) 

SUPERPROGRAMMA PER GESTIONE DATI NUMERICI 

PROIEZIONI - SIMULAZIONI 

310.500 

TF/1124-00 

VISICALC (8000 + ROM AGGIUNTIVA FORNITA) 

SUPERPROGRAMMA PER GESTIONE DATI NUMERICI 

PROIEZIONI - SIMULAZIONI 

310.500 

TF/1126-00 

COM-PLUS (8000) 

UTILE ACCESSORIO PER SUPERARE LA BARRIERA 
DELL’INCOMPATIBILITÀ' TRA 1 DIVERSI SISTEMI 

60.000 

TF/1128-00 

WORD-CRAFT (8000 + CHIAVE D’ACCESSO) 

ALTRA VERSIONE DI WORD PROCESSOR CON CARATTERISTICHE 
ADERENTI AD ESIGENZE DIVERSE 

632.500 


VIGIL (3000) 

LINGUAGGIO ORIENTATO ALLA PRODUZIONE DI GIOCHI 
SONORI E GRAFICI - 9 GIOCHI ESEMPIO FORNITI 


PROGRAMMI PER IL VIC-20 CBM 

Tutti i programmi sottoelencati sono registrati su cassetta. 

Se non specificato, si intende che i programmi funzionano con la memoria in configurazione 
base. 


CODICE 

TF/9402-00 

TF/9404-00 

TF/9406-00 

TF/9408-00 

TF/9410-00 

TF/9412-00 

TF/9300-00 


NOME E DESCRIZIONE 

PREZZO 

VENDITA 

THE ALIEN WITH JOYSTICK (6K) 

PROVATE A CALARVI NEI PANNI DELL'ALIENO! 

60.000 

AMOK 

UN GIOCO DI COMBATTIMENTO E DI VIOLENZA 

60.000 

THE ALIEN 

SIETE L'ALIENO E DOVETE SOPRAVVIVERE! 

60.000 

3-D MAZE 

TROVATE L'USCITA DAL LABIRINTO TRIDIMENSIONALE! 
DIVERSI LIVELLI DI DIFFICOLTA’ 

36.000 

ALIEN BLITZ (JOYSTICK OPZIONALE) 

DISTRUGGETE GLI INVASORI DEL CIELO! 

60.000 

VICAT 

GESTIONE DI UN ARCHIVIO SEQUENZIALE SU CASSETTA 

60.000 

CASSETTA PROGRAMMI DIMOSTRATIVI 

15.700 


DIMOSTRA LA POTENZA DEL VIC 


PROGRAMMI PER IL VIC-20 CBM 

Tutti i programmi sottoelencati sono registrati su cartridge. 

Se non specificato, si intende che i programmi funzionino con la memoria in configurazione 
base. 


CODICE 

NOME E DESCRIZIONE 

PREZZO 

VENDITA 

TF/9300-04 

INVASORI SPAZIALI 

GRANDE REALISMO - ALTA VELOCITA' 

NON VI FATE PRENDERE DAL PANICO! 

37.000 

TF/9300-06 

GARA AUTOMOBILISTICA 

PROVATE L'EBREZZA DELLA VELOCITA’ 

E DELLA COMPETIZIONE - 1 o PIU' GIOCATORI 

37.000 

TF/9300-08 

ATTERRAGGIO SU GIOVE 

ESSERE AL COMANDO DI UNA ASTRONAVE NON È SEMPLICE 
MA QUESTO LO IMPARERETE A VOSTRE SPESE 

37.000 

TF/9300-10 

GIOCO DEL POKER 

ATTENZIONE! - POTRESTE RESTARE POVERI! 

QUI NON SI TRATTA DI FORTUNA 

37.000 

TF/9300-12 

IL FANTASMA DI MEZZANOTTE 

FUGGITE VIA DALLA CASA INFESTATA DAGLI SPIRITI 

SE VE NE RIMANE IL TEMPO 

37.000 

TF/9300-14 

BILANCIO FAMILIARE 

PIANIFICATE LE VOSTRE SPESE IN FUNZIONE DELLE ENTRATE 
GESTITE IL VOSTRO C/C BANCARIO 

37.000 

TF/9300-16 

APPLICAZIONI MATEMATICHE 

UN VALIDO AIUTO TESO AL MIGLIORAMENTO 

DELLE PROPRIE CAPACITA’ DI CALCOLO 

37.000 

TF/9300-18 

SLOT MACHINE 

IL CELEBRE GIOCO D'AZZARDO 

37.000 

TF/9300-20 

AVENGER 

INTERESSANTE GIOCO DI SIMULAZIONE 

37.000 

PROGRAMMI PER APPLE II 


Tutti i programmi sono forniti su disco. 

Per ogni programma è indicata la lingua (italiano-inglese) in cui è stato scritto. 

Ove non indicato, si intende che i programmi girano sulla configurazione 16K 1 disco. 


CODICE 

NOME E DESCRIZIONE 

PREZZO 

VENDITA 

TF/5502-00 

TOTOCALCIO SISTEMA A CORREZIONE D’ERRORI (It.) 
ELABORAZIONE DI SISTEMI RIDOTTI 

80.000 

TF/5504-00 

TOTOCALCIO CHIAVE ALFA 6 SUPER (It.) 

SISTEMA RIDOTTO 10 TRIPLE CON FATTORE DI 

RIDUZIONE - INDICATO AL SISTEMISTA SERIO 

70.000 

TF/5506-00 

TOTOCALCIO SISTEMA DERIVATO A ROTAZIONE (It.) 
ELABORAZIONE DI UN NUMERO STABILITO DI COLONNE 

IN BASE AD UN NUMERO CONCORDATO DI ELIMINAZIONI 

90.000 

TF/5508-00 

APPLE PANIC (Ing.) 

LABIRINTO DI SCALE - ALTA RISOLUZIONE 

GRAFICA AD ALTA VELOCITA' 

72.000 

TF/5510-00 

ADVENTURES 1/2/3 (Ing.) 

ADVENTURELAND - PIRATE'S ADVENTURE - MISSION IMPOSSIBLE 

110.000 

TF/5512-00 

ADVENTURES 4/5/6 (Ing.) 

VODOO CASTLE - THE COUNT - STRANGE ODYSSEY 

110.000 

TF/5514-00 

ADVENTURES 7/8/9 (Ing.) 

MYSTERY - FUN HOUSE - PYRAMID OF DOOM 

GHOST TOWN 

110.000 

TF/5516-00 

FLIGHT SIMULATOR (Ing.) 

UN REALISTICO SIMULATORE DI VOLO CON VISTA 

DAL CIELO E DALL'AEREO - ANCHE FASI DI COMBATTIMENTO 

60.000 

TF/5518-00 

COMPUCUBE (Ing.) 

CREARE - RIMESCOLARE - RISOLVERE IL CUBO 

MAGICO - TRIDIMENSIONALE 

72.000 

TF/5520-00 

DRAW POKER (Ing.) 

IL MIGLIOR PROGRAMMA NEL SUO GENERE 

72.000 


* 





Proverbi per informatici 


✓ a preparazione di un programma è 

• • I cosa particolarmente attraente per- 
ché può essere vista non solo sotto 
l’aspetto scientifico, ma anche come esperienza 
estetica, come il comporre musica o scrivere 
poesia”. Questa frase di D.E. Knuth, uno dei 
maggiori informatici internazionali, illustra il 
nostro punto di vista nello scrivere questa ru¬ 
brica. 

Forse tra qualche decina d’anni molto sarà 
cambiato, ma oggi lo scrivere un programma è 
ancora una questione che riguarda non solo il 
razionale ma anche, ed in larga misura, il senso 
artistico. In altre parole, la disciplina della pro¬ 
grammazione non è ancora codificata in regola 
precise: non si tratta di scienza, ma di un’arte. 

Parlare del “buon modo di programmare” si¬ 
gnifica parlare di esperienza e di buon senso, 
significa dare consigli più che norme, criteri più 
che leggi. 

Nella prima apparizione di questa rubrica, 
vogliamo farvi conoscere i cosiddetti “proverbi 
di Arsac”. Jacques Arsac è professore di infor¬ 
matica alla facoltà di Scienze dell’Università di 
Parigi. Egli distribuisce agli studenti che intra¬ 
prendono lo studio dell’informatica, una picco¬ 
la dispensa ciclostilata che contiene diciotto 
consigli sul modo di programmare, da lui chia¬ 
mati «proverbi». 


I proverbi di Arsac 

0. Le cattive abitudini in programmazione si 
prendono molto presto. Non attendete di esser¬ 
ne schiavi per leggere le raccomandazioni che 
seguono. Esse vi eviteranno tempo perduto per 
fastidiose messe a punto e vi agevoleranno nel¬ 
lo studio e nel lavoro. 

Tuttavia, non prendete queste raccomanda¬ 
zioni per regole assolute. Se sono state chiama¬ 
te “proverbi”, è per rimarcare il loro carattere 
di “saggezza popolare”, buon senso comune, 
frutto dell’esperienza. Il buon programmatore 
sa passarvi sopra se ne vale la pena. Rispettate¬ 
le fino a che la vostra esperienza non vi avrà 
fatto capire i loro limiti. 


1. Enunciate il problema il più dettagliata- 
mente possibile. In informatica, non solo nello 
studio ma specialmente nella vita comune, non 
partirete mai da un enunciato perfettamente 
definito. Avrete a che fare con una situazione 
descritta in italiano corrente, talvolta con delle 
formule per farvi credere che il problema sia 
ben posto. Non lasciatevi ingannare. Comincia¬ 
te a definire il problema da risolvere. In parti¬ 
colare: 

• precisate i dati, il loro tipo, il loro campo di 
variazione, le loro proprietà; 

• precisate i risultati che vi si chiedono; 

• formulate le relazioni che legano i risultati ai 
dati. 

La scuola non vi ha certo abituato a questo 
lavoro: vi ha insegnato a risolvere problemi, 
non a porli. Quello che più si avvicina a questa 
attività, sono i vecchi problemi di aritmetica 
della scuola elementare: se una vasca viene 
riempita da un rubinetto... Non c’erano diffi¬ 
coltà di risoluzione: l’essenziale era porre il 
problema. Rimettetevi in questa ottica. 


2. Intanto riflettete, programmerete più tardi. 
Non precipitatevi a scrivere istruzioni. Questa è 
veramente l’ultima tappa del processo. Avrete 
ancora molto da fare: 

• studiate l’enunciato del problema; cercate di 
trovare tutte le ipotesi semplificatrici che vi fa¬ 
ciliteranno il lavoro; 

• a partire dalle proprietà dei dati fate apparire 
ciò che già sapete sui risultati. Inutile fare un 
programma se il risultato può essere calcolato 
direttamente. Questo lo si sa... 

• scegliete un metodo di soluzione (quello che 
in gergo si chiama algoritmo); 

• non vi preoccupate troppo per il momento 
del numero di operazioni che richiede: non sie¬ 
te voi che lo eseguirete, ma la macchina. Invece 
interessatevi alla precisione, se fate dei calcoli 
numerici; 

• scegliete una rappresentazione dei dati non a 
priori, ma in funzione del vostro algoritmo. La 
rappresentazione deve facilitare l’esecuzione 
deH’algoritmo. 
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MCS 


MULTICOMPU T ERSYSTEMS 


PERSONAL COMPUTERS + 
MINI ELABORATORI 
GESTIONALI 

Procedure-programmi dedicati 
per Agenzie Assicurazioni 
(RCA/ARA) 

Industrie abbigliamento - 
(Confezioni) 

Calzaturifici - Italia/estero - 
ciclo completo 
Pelletterie e accessori - ciclo 
completo 

Distinta base - Produzione e 
gestione magazzino 
Pelliccerie - Magazzino Pelli - 
Lavorazione clienti 
Condomini e affitti 
Laboratorio analisi mediche e 
cardiologia 

Agenzie immobiliari - Vendite e 

affitti 

Gestione bolle consegna - 
Fatturazione gestione 
corrispondenza (W.P.) 
Stampa indirizzi con 5 chiavi di 

selezione 


Le procedure offerte sono realizzate per 
sistemi COMMODORE serie 4000 e 
serie 8000 in configurazione standard 
(CPU, Video consolle. Dual Floppy, Prin¬ 
ter). 


DISPONIBILI OLTRE 100 PRO¬ 
GRAMMI GESTIONALI - VENDITA, 
NOLEGGIO, LEASING SOFTWARE 
STANDARD - PERSONALIZZAZIO¬ 
NE - SISTEMA OPERATIVO PET 
TRUCCATO 


50132 Firenze 
via Pier Capponi, 87 
tei. 055/571380 - 573901 


Proverei per informatici 


V 

E del tutto normale che passiate 
il 60% del vostro tempo a riflette¬ 
re, tempo durante il quale non scri¬ 
vete una sola istruzione. Quelli che 
sono stati abituati a scrivere subito, 
a provare il programma sulla mac¬ 
china, a riflettere soltanto allora 
sugli errori commessi, vi diranno 
che perdete il vostro tempo. Sono 
loro che lo perdono: vi accorgerete 
di arrivare allo scopo prima di lo¬ 
ro, con meno fatica. 

3. Documentate il vostro lavoro. 
Non fidatevi della vostra memoria. 
— Scrivete l’enunciato del proble¬ 
ma. Se vi accorgete che è incom¬ 
pleto, cambiatelo. Non fate alcuna 
modifica che non sia riportata su 
tutto l’insieme, dall’enunciato del 
problema alla sua soluzione. 

• descrivete con cura l’algoritmo 
che utilizzate; 

• precisate bene quali dati trattate, 
e in quale campo si devono trovare 
affinché il programma funzioni; 

• dite quali sono i risultati, in che 
ordine appaiono, cosa significano. 

Non attendete d’aver finito per 
redigere la documentazione. La 
vostra memoria non è infallibile. 
Vi perderete voi stessi nelle con¬ 
venzioni che sarete inevitabilmente 
condotti ad adottare. 

Non dite mai: non è definitivo, 
lo devo ancora cambiare, quindi 
non lo scrivo. Scrivetelo, poi lo 
correggerete se necessario. 

4. Conservate i vostri appunti. 
Non si scrive mai un programma di 
getto, non si stende un enunciato 


immediatamente senza errori, né 
un algoritmo senza dimenticare 
qualche cosa. In programmazione 
vi è “ritorno all’indietro” senza fi¬ 
ne. Mantenete i vostri appunti. Vi 
capiterà di tornare indietro quando 
sarete sulla buona strada. Vi capi¬ 
terà di modificare certi punti e di 
perdere cammin facendo delle par¬ 
ti corrette. 

Conservare i vostri appunti vi fa¬ 
ciliterà la ripresa. Allo stesso tem¬ 
po questi appunti costituiscono la 
storia della creazione del vostro 
programma. Vi saranno indispen¬ 
sabili nella fase finale di documen¬ 
tazione 

5. Fate uno studio discendente. 
Tracciate dapprima la soluzione a 
grandi linee, senza occuparvi dei 
dettagli. Assicuratevi che questa ri¬ 
solva il problema dato, eventual¬ 
mente dimostratelo. 

A questo livello non parlate del 
modo in cui i dati saranno effetti¬ 
vamente rappresentati nel pro¬ 
gramma. Non ha importanza, ed è 
ancora troppo presto. 

Quello che avete fatto non è an¬ 
cora un programma. Ci saranno 
delle espressioni in italiano corren¬ 
te che saranno dettagliate più tar¬ 
di. 

Quando avrete uno schema d’in¬ 
sieme corretto, affrontate le azioni 
che lo compongono. Per ciascuna, 
ricominciate lo stesso processo. E 

il metodo del “divide ed impera”: 
separate il vostro problema in sot¬ 
toproblemi. Supponete di saperli 
risolvere, e mostrate come essi per¬ 
mettono di risolvere il problema 
principale. Dopo di ciò, affrontate 
i sottoproblemi, e così di seguito. 













fino a che raggiungete dei problemi 
semplici che sapete programmare. 

Un esempio: vi si domanda d: 
calcolare il valore di un polinomio. 
Non dite: bè, so come si fa: devo 
calcolare le potenze della variabile, 
moltiplicarle per i coefficienti e ac¬ 
cumulare il risultato; faccio un ci¬ 
clo... NO. 

Enunciate il problema. Quale 
polinomio? Di quale grado? Il gra¬ 
do può essere nullo? Quali sono i 
valori possibili della variabile? Il 
calcolo si deve fare per un punto, 
per un insieme di valori qualun¬ 
que, o in progressione aritmetica? 

I coefficienti e i valori della varia¬ 
bile sono interi (nel qual caso non 
si saranno problemi di precisione, 
ma rischi di valori troppo grandi) o 
possono essere reali (attenzione 
agli errori di arrotondamento). 

Immaginate che i coefficienti sia¬ 
no interi, compresi nell’insieme {0, 
1,2, ..., 9} e la variabile abbia il 
valore 10. Scriverete un program¬ 
ma in questo caso? 

Supponete che il problema si 
enunci così: 

• Sia dato un polinomio mediante 
la successione dei suoi coefficienti, 
secondo l’ordine del grado discen¬ 
dente, e la successione comprenda 
almeno un termine (nel caso che 
contenga un termine, è un polino¬ 
mio di grado 0, una costante). 
Questi coefficienti sono reali. 

• Sia data una successione di valori 
della variabile, reale, in ordine 
qualunque, ma non nullo. 

Calcolate, alla precisione della 
macchina, il valore del polinomio 
su questa successione di valori del¬ 



la variabile. Si può cominciare a 
organizzare il lavoro: 

1 Leggere la successione dei coef¬ 
ficienti determinandone il numero 
i) grado «—/—1; posizionarsi all’ini¬ 
zio della successione dei valori del¬ 
la variabile. 

2 Considerare il valore attuale x; 
calcolare il valore y del polinomio 
in x; stampare x e y; avanzare nella 
successione dei valori della variabi¬ 
le; se ci sono ancora valori da trat¬ 
tare andare a 2, altrimenti stop. 

Si ha un buon abbozzo del pro¬ 
gramma. Alcune difficoltà non so¬ 
no state ancora risolte, ma ciascu¬ 
na è stata localizzata. Si potrà ora 
decidere l’algoritmo di calcolo del 
valore del polinomio, per esempio 
il metodo di Horner. 

E ancora troppo presto per decide¬ 
re come rappresentare le successio¬ 
ni dei coefficienti e di valori della 
variabile. Non se ne sa abbastanza 
su quello che resta da fare. ■ 


I “proverbi di Arsac” continuano 
nel prossimo numero. 




MULTICOMPUTERSYSTEMS 


SE STATE VALUTANDO 
L’ACQUISTO DI UN 
COMPILATORE 

per il Vs. microcomputer Commodo¬ 
re PET, la M.C.S è lieta di informarvi 
che rende disponibile un dischetto 
(5.1/4”) di prova per farVi meglio va¬ 
lutare la Vs. scelta. 

Il compilatore della Oxford Compu¬ 
ter System che la M.C.S. offre per i 
sistemi Commodore è l’unico a 
presentare i seguenti vantaggi: 

• SINO A 150 VOLTE PIU’VELOCE 
DEL PET BASIC 

• RIDUCE L’OCCUPAZIONE DI 
MEMORIA RAM 

• COMPATIBILE CON OGNI PRO¬ 
GRAMMA BASIC PET/CBM 

DISPONIBILI DUE 
COMPILATORI: 

• PET SPEED PER APPLICAZIONI 
GESTIONALI 

• COMPÌ LED INTEGER BASIC 
PER APPLICAZIONI TECNICO- 
SCIENTIFICHE 

Disco dimostrativo a richiesta com¬ 
prensivo di pratico manuale operati¬ 
vo. 

DISPONIBILI INOLTRE I 
SEGUENTI DISPOSITIVI: 

• EDEX (BASIC 2.0/BASIC 4.1) IM¬ 
PLEMENTA IL BASIC CBM DI 20 
COMANDI 

• MULTEX (ROM) CONSENTE 
L’IMPIEGO DI PIU’ CBM 8032 
CON UNA SOLA UNITA’ A DI¬ 
SCO 8050. 


50132 Firenze 
via Pier Capponi, 87 
tei. 055/571380 - 573901 
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Per avere successo, occorre crescere. 

Per questo tu stai sempre cercando qualcosa che ti 
aiuti a crescere, a migliorare le tue capacità, a 
sfidare gli ostacoli. 

Apple, il computer personale, ti aiuta 
a crescere più in fretta e ad andare 
più lontano di quel che credevi 
possibile. 

In altri termini, un elaboratore 
personale Apple ti assicura il potere di 
mandare ad effetto tutti i pensieri 
creativi che ti balenano nella mente. 

Per esempio, prendiamo la previsione. 

Mentre ogni elaboratore può rielaborare dei 
risultati per te se tu inserisci una serie di 
informazioni, tu non sempre hai le ore o le nottate 
(o non ancora l’accesso ad un elaboratore) per il 
normale cambiamento. 

Quante volte le tue brillanti idee - del tipo 
“Cosa succede se...” - muoiono perchè tu non 
puoi metterle in atto? Ora spingi al lavoro un 
elaboratore personale Apple ed avrai tutte le 
informazioni/analisi/opzioni che risponderanno 
al tuo “Cosa succede se...” un minuto dopo che 
avrai posto la domanda. Immagina che cosa 
vuol dire! 

Dopo che avrai individuato la soluzione migliore 
(lasciando la noia del lavoro di routine al tuo 
Apple) sarai in grado di organizzare la massa 
dei dati e dei loro rapporti reciproci in immagini 
comprensibili ed operative per sostenere le tue 
conclusioni. Il tuo Apple ti dà possibilità 
illimitate: tu non hai che da scegliere quel 
procedimento grafico che sostenga meglio il tuo 
punto di vista. Cambi idea? Il tuo Apple 
risponde più velocemente di quel che immagini 
alla nuova linea prescelta. 

Puoi anche usare il medesimo Apple per 
redigere e produrre i testi. E puoi usarlo per 
avere sulla punta delle dita un mucchio di dati 
importanti, per lavorare in base a notizie del 
momento (e sarà finita la storia di qualcuno che 
blocca le tue decisioni infilando nel posto 
sbagliato i tuoi dati-chiave!). 

E questo è solo l’inizio. Gli elaboratori personali 
Apple sono all’avanguardia per le migliaia dei 



loro programmi d’applicazione e per le centinaia 
dei loro accessori, dalla stampatrice alla 
derivazione telefonica. Così il tuo Apple può 

crescere alla velocità alla quale 
cresci tu e non ti lascerà mai 
indietro nella tua corsa verso quel 
mobile obiettivo che è il “successo”. 

Quel che più conta, Apple 
continua ad immettere sul mercato, 
sempre migliori e sempre più 
numerosi, accessori e software 
pienamente compatibili con quelli 
già esistenti. 

Questo significa nessun pensiero quando decidi 
di imboccare la “corsia di sorpasso” Apple: sarai 
sempre in grado di accelerare insieme ad ogni 
futura innovazione Apple. 

Non per nulla oggi ci sono già più di 350.000 

Apple in uso. L’elaboratore 
personale Apple è la via 
maestra per crescere più in 
fretta e per andare avanti. 

E chi non vuole questo? 

Per sapere come Apple può 
aiutare anche te a crescere, 
spedisci questo tagliando oggi 
stesso. 



Per saperne di più sui sistemi Apple II e Apple III di personal 
computer, compilate questo coupon e speditelo in busta chiusa 
a: Iret Informatica S.p.A. - Via Bovio, 5 - 42100 Reggio Emilia 
Tel. 0522/32643. 
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Il computer personale. 
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Encyclopedia for thè TRS-80 * Encyclopedia Loader 


Qual è la chiave per avere il massimo 
dal vostro TRS-80*? No, non sono i di- 
schi, le stampanti o i joystick. E l’informa- 
zione. Senza un continuo flusso di infor¬ 
mazioni e idee non potete sfruttare la po¬ 
tenzialità del vostro TRS-80*. 

La risposta a questa domanda di infor¬ 
mazione è VEncyclopedia for thè TRS-80*, 
un’opera in dieci volumi che contiene pro¬ 
grammi e articoli attentamente scelti per 
aiutarvi a ricavare il massimo dal vostro 
personal computer. 

Ogni volume dell’ Encyclopedia com¬ 
prende circa 300 pagine di formato 15X23 
cm, più di venti programmi e cinque arti¬ 
coli di harware e software. I primi quattro 
volumi sono già disponibili. I prossimi sei 
verranno pubblicati entro la prima rtietà 
dell’82. 


Gli editori d c\Y Encyclopedia hanno rea¬ 
lizzato una serie di dieci cassette ognuna 
delle quali riporta i programmi contenuti 
nel rispettivo volume dell’ Encyclopedia. 
Questa serie di cassette è chiamata Ency¬ 
clopedia Loader. N c\Y Encyclopedia for thè 
TRS-80 * è contenuta tutta la documenta¬ 
zione necessaria, ma con Encyclopedia Loa¬ 
der potete caricare i vostri programmi 
istantaneamente. 

Encyclopedia for thè TRS-80* e Ency¬ 
clopedia Loader sono pubblicati negli 
Stati Uniti dalla Wayne Greene Books 
e vengono importati in Italia in versio¬ 
ne originale dalla Completo Software, 
che li propone ad ogni possessore di 
TRS-80* modello I o III. 

Ogni volume deìV Encyclopedia for 
thè TRS-80* è offerto a 16.000 lire. 

Ogni cassetta de\V Encyclopedia Loa¬ 
der e offerta a 20.000 lire. 

Le spese di spedizione sono gratui¬ 
te. 


Spedire a 

COMPLETO SOFTWARE 
Via Bonporti 32 
35100 PADOVA 

Voglio ricevere i seguenti volumi di Encyclo¬ 
pedia for thè TRS-80* e i seguenti nastri di 
Encyclopedia Loader. 

□ Pagherò contrassegno 

□ Accludo un assegno 

□ Ho versato l’importo su c/cp 16915357 in¬ 
testato a Completo Software 


voi. 1 
voi. 2 
voi. 3 
voi. 4 

Totale lire. 


□ Encyclopedia 

□ Encyclopedia 

□ Encyclopedia 

□ Encyclopedia 


□ Loader 

□ Loader 

□ Loader 

□ Loader 


Nome e cognome 


Indirizzo 


Cap. Località 


4 


* TRS-80 è marchio depositato della divisione Radio Shack 
della Tandy Corp. 





















































































































































































































































































































































































































Punteggiatura 

In questa rubrica raccogliamo le routine Ba¬ 
sic che ci sembrano di interesse generale. Ne 
verrà pubblicata una per ogni numero. Invitia¬ 
mo i lettori a comunicarci eventuali modifiche 
che migliorino (per velocità, occupazione di 
memoria o generalità di applicazione) le routi¬ 
ne pubblicate. Questo mese iniziamo con una 
routine per la punteggiatura dei numeri interi 
“all’italiana’’, cioè l’inserimento di un punto di 
separazione tra le centinaia e le migliaia, tra le 


centinaia di migliaia e i milioni e così via. La 
routine inoltre incolonna il numero appoggian¬ 
dolo a destra in una posizione stabilita. 

Come regola generale, il listato contiene tut¬ 
te le informazioni per usare la routine. Le linee 
1, 2 e 3 sono un esempio di utilizzazioné. La 
routine inizia alla riga 1000, dove sono specifi¬ 
cati scopo, variabili (in input o in output) e vin¬ 
coli di tali variabili (controllati dalla routine op¬ 
pure no). Segue quindi il corpo della routine. 


1 INPUT N,X 

2 GOSUB 1000 

3 GOTO 1 
1000 REM! 
1005 REM; 

1010 
1020 


SCOPO 


REM; 
1030 REM 
1040 REM; 


M E T T E L A P U N T E G GIA T U R A A LI.... ’ I "I A LIA M A M EI N U M E RI 
INTERI CON PILO DI TRE CIFRE E LI INCOLONNA 
D E S T R A IN U N A P O SI Z 10 N E D E T E R MIN A T A 


R 


VARIABILI 


1050 
1060 
1070 
1080 
1081 
1082 

1083 

1084 


IOdd 
1086 
1090 
1 100 
1 1 10 
1 120 
1 130 
1 140 
1 150 
1 160 
1170 
1 180 
1190 
1200 


REM; 

REM; 


N 


V 

A 


JV) u 


V .-*■ 

A 


NUMERO DA PUNTEGGIARE (INPUT) 

P 0 SI Z 10 N E DI IN C 0 !... 0 N N A M E N T 0 ( IN P U T ) 
N U M E R O p LI N T E G GIA T 0 ( 0UT P U T ) 


ivi 


REI 
REM 
REM 


VINCOLI 


X D E V E E 8 8 E R E M A G G10 R E DI IN T ( C / 3 ) + C D 0 V E 

C SOME LE CIFRE DI N (VINCOLO NON CONTROLLATO) 


n cr i~, 


REM; 


% 1 1: t % $ % t i{< 


INIZIO ROUTINE 


4r vi.- vi/ vlr vi/ vi/ vi/ vi. 1 Ur vJ.- 
O- '1- '¥■ ¥■ ¥■ T- ^ ¥■ 




n$~str$(N) 

V ±; — i ■ » « 

A T>— 

L L. b: N ( N 3» ) 

IF L>2 GOTO 1150 
I =L 

GOTO USO 

FOR I=L TO 3 STEP -3 
X $= " „ " +MIDT ( NT , 1,3) +X É 
NE X T 

X $=!.. E F T $ ( N S», I + 2 ) + X % 

PRI NT TAB ( X-LEM ( X % >);><$ 
RETURN 


¥ 































































































































































































































































































Vieni alla Homic, e fatti mostrare un 
“personal” Commodore: li trovi tutti, 
dall’eccezionale Vie 20 Colour Computer, che 
permette di lavorare 
con 24 colori, 
produce suoni e musica 
ed è collegabile con 
ogni apparecchio 
televisivo e risolve 


problemi scolastici, di divertimento e tecnico 
scientifici, alla Serie CBM destinata a 
trattare quantità medie e grandi di dati per 

la gestione della 
casa, degli studi 
professionali e delle 
piccole aziende. 

Vieni alla Homic: 
trovi il meglio. 



il più grande centro italiano di microcomputer 


Uffici: Piazza De Angeli 3 - Milano - Tel. 4695467-4696040-4984583 


ETHOS MILANO 













Ecco quali sono le 
capacità grafiche dei 
personal computer più 
diffusi, e come si 
possono convertire i 
programmi scritti per 
un calcolatore in modo 
che possano essere 
eseguiti su di un altro. 

di Richard Kaplan 


La riproduzione di questo articolo 
è stata concessa dalla rivista Creati¬ 
ve Computing. 

Traduzione di Luigi Tagliarolo 


Conversioni grafiche 
tra TRS-80, Apple 
ePET 


E ra attaccato al suo computer 
già da molte ore: stava bat¬ 
tendo la lista del suo gioco 
preferito. “Convertire questo pro¬ 
gramma per la mia macchina do¬ 
vrebbe essere un gioco da ragazzi” 
pensava. “Dopotutto sono un vec¬ 
chio professionista della program¬ 
mazione con l'Apple. Un TRS-80 
non sarà poi così differente”. 

Dopo alcune settimane di infrut¬ 
tuosa programmazione, si arrese al 
suo computer. Aveva scoperto 
quanto può essere dura la vita (in 
questo caso la conversione di un 
programma) per chi conosca solo il 
proprio computer. 

La conversione grafica è forse 
uno dei problemi più frustranti con 
cui un utente di microcomputer ab¬ 
bia a che fare. Ad un programma¬ 
tore di Apple, l'istruzione 

PRINT@1000, A + B 

può sembrare un modo di istruire il 
proprio computer ad aspettare fino 
alle dieci in punto prima di stampa¬ 
re A-bB. Per lo stesso motivo, un 
programmatore di TRS-80 non sa 
immaginare il significato dell’istru- 
zione HGR: gli viene solo in mente 
che possa essere l'abbreviazione di 
hungarian. 

Quindi, molto spesso, program¬ 
matori estremamente competenti si 
trovano totalmente fuori strada nel 
convertire programmi per la pro¬ 
pria macchina. 

Questo articolo tratta l’Apple II, 
il TRS-80 modello I e modello III e 


il PET/CBM. In molti casi è possi¬ 
bile tradurre la grafica di una mac¬ 
china direttamente su un’altra, 
proprio come si traduce un lin¬ 
guaggio straniero. Tuttavia, ci sono 
molte situazioni in cui è abbastanza 
avventato tentare la traduzione di¬ 
retta. 

A questo punto, il miglior ap¬ 
proccio è cominciare con il trovare 
esattamente il significato di ogni 
funzione grafica del programma 
che state traducendo. Diamo dun¬ 
que un’occhiata alle capacità grafi¬ 
che del vostro computer. 


APPLE 

L’Apple produce grafica in tre 
modi: con le istruzioni PRINT 
standard e con due speciali modi 
grafici. 

Ogni calcolatore può produrre 
grafica stampando caratteri sullo 
schermo. Un semplice istogramma, 
per esempio, si può facilmente rea¬ 
lizzare stampando degli asterischi 
nella posizione appropriata dello 
schermo. L’Apple ha due istruzioni 
che aiutano molto la scrittura di 
programmi di questa natura e che 
sono molto utili nel convertire pro¬ 
grammi del TRS-80 per l’Apple. 

Il primo passo con la grafica me¬ 
diante PRINT è l’azzeramento del¬ 
lo schermo. Battendo HOME (o 
eseguendo questa istruzione dal¬ 
l’interno di un programma in Ap- 
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Conversioni grafiche 


plesoft) si ottiene l’azzeramento 
dello schermo. Se avete l’Integer 
Basic, l'istruzione corretta è 
CALL-936. 

VTAB e HTAB 

L’istruzione VTAB controlla la 
posizione del cursore lungo l’asse 
Y. Ci sono 24 righe su cui l’Apple 
può stampare in text mode. Batten¬ 
do VTAB XX, dove XX è un nu¬ 
mero tra 1 e 24, si ottiene il posi¬ 
zionamento del cursore in quella li¬ 
nea, senza cancellare alcun caratte¬ 
re. Per esempio, supponete di ese¬ 
guire 

FOR 1 = 1 TO 12 
PRINT“HELLO” 

NEXT 

Eseguendo le istruzioni 

VTAB 5 
PRINT “CIAO” 

l’HELLO della quinta riga viene 
sostituito con CIAO. 

Lo stesso principio può essere 
applicato con la tabulazione oriz¬ 
zontale. Battendo HTAB XX, do¬ 
ve XX è un numero da 1 a 40, si 
avrà il posizionamento del cursore 
in orizzontale nella posizione speci¬ 
ficata. 

HTAB e VTAB possono essere 
molto utili nel convertire altri pro¬ 
grammi per l’Apple, specialmente 
se usati assieme alle altre funzioni 

PEEK(37) contiene un numero 
da 0 a 23, il cui valore è la posizio¬ 
ne verticale del cursore. Questo 
numero è uno meno del valore usa¬ 
to nell’istruzione VTAB. Se il cur¬ 
sore è sulla linea 10 e volete spo¬ 
starlo in su di una posizione l’istru¬ 
zione VTAB PEEK(37) fa esatta¬ 
mente questo. HTAB PEEK(36) o 
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HTAB POS(O) fanno la stessa cosa 
in orizzontale, cioè spostano il cur¬ 
sore indietro di una posizione. Bi¬ 
sogna fare attenzione, tuttavia, di 
non eseguire HTAB per una posi¬ 
zione inferiore a 1 o supcriore a 
40, oppure VTAB per una posizio¬ 
ne inferiore a 1 o superiore a 24. 

Sebbene l’uso di normali istru¬ 
zioni PRINT sia un mezzo molto 
primitivo di programmare la grafi¬ 
ca, in alcuni casi può essere il me¬ 
todo migliore e più diretto per con¬ 
vertire un programma. In situazio¬ 
ni in cui sono presenti grafici più 
complessi, tuttavia, può essere de¬ 
siderabile usare uno dei metodi 
grafici dell’Apple. 

L’Apple ha due modi grafici. 
Questi modi permettono di usare 
fino a 16 colori e alcune potenti 
istruzioni di plotting (tracciamen¬ 
to). L’unico inconveniente nell’u- 
sare i modi grafici dell’Apple è che 
il testo e la grafica non possono es¬ 
sere mescolati nella stessa area di 
schermo senza enormi sforzi di 
programmazione. In generale il 
programmatore dovrà accontentar¬ 
si di quattro linee di testo in fondo 
allo schermo. 


Grafica a bassa risoluzione (lo-res) 

La grafica a bassa risoluzione 
dell’Apple è molto conveniente per 
semplici programmi grafici. Si può 
usare una matrice di 40x40 blocchi 
grafici con quattro linee di testo sul 
fondo. In alternativa è possibile 
avere una matrice 40x48 senza te¬ 
sto. Sono disponibili sedici colori. 

Battendo GR (o usandolo dal¬ 
l’interno di un programma) si passa 
alla grafica a bassa risoluzione 
(grafica e testo). Lo schermo viene 


azzerato e le istruzioni PRINT agi¬ 
scono solo sulle quattro linee infe¬ 
riori dello schermo. 

Se desiderate un’area grafica 
maggiore (40x48) battete 
POKE—16302,0. Le quattro linee 
in fondo allo schermo spariscono e 
avrete altre otto linee di grafica. 

Prima di tracciare qualunque co¬ 
sa, occorre specificare un colore. 
Ne sono disponibili sedici. Per as¬ 
segnare un colore si batte 

COLOR=X 

dove X è: 


0 

nero 

1 

rosso magenta 

2 

blu scuro 

3 

viola 

4 

verde scuro 

5 

grigio 

6 

blu medio 

7 

blu chiaro 

8 

marrone 

9 

arancio 

10 

grigio 

11 

rosa 

12 

verde 

13 

giallo 

14 

verde acqua 

15 

bianco 


L’assegnazione di un colore non 
ha effetto sulla grafica già presente 
sullo schermo. Solo le istruzioni 
grafiche eseguite successivamente 
avranno quel colore. Quindi, ese¬ 
guendo diverse assegnazioni di co¬ 
lore, si possono avere diversi colori 
sullo stesso schermo. 

Ora arriviamo alla questione 
fondamentale. Come si traccia un 
punto? Fondamentalmente, lo 
schermo Apple funziona come un 
sistema matematico di coordinate. 
L’asse X può essere immaginato in 
cima allo schermo, numerato con 
le coordinate da 0 a 39. L’asse Y 
corre parallelo al lato sinistro dello 
schermo con lo 0 in cima e 39 o 47 
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10 GR 

Grafica a bassa risoluzione 

20 COLOR=3 

Il colore è viola 

30 HLIN 0,39 AT 0 

Traccia una linea in cima allo schermo 

40 VLIN 0,39 AT 39 

Traccia una linea alla destra dello schermo 

50 HLIN 0,39 AT 39 

Traccia una linea in fondo allo schermo 

60 VLIN 0,39 AT 0 

Traccia una linea a sinistra dello schermo 


Fig. 1. Una cornice in bassa risoluzione per l'Apple. 


in fondo, secondo che avete scelto 
di usare o no le quattro linee di te¬ 
sto. Dunque il punto 0,0 è in alto a 
sinistra dello schermo e il punto 
39,39 è in basso a destra dello 
schermo (nel modo grafica-testo). 

L'istruzione PLOT traccia un 
punto specificato. Il suo formato è 
PLOT X,Y. Quindi PLOT 20,20 
traccia un quadrato a distanza 20 
dalla sinistra dello schermo e 20 
dalla parte superiore. Per cancella¬ 
re questo punto, specificate il colo¬ 
re 0 (nero) o comunque quello di 
fondo e ritracciate il punto. 

È anche possibile tracciare una 
linea tra due punti dello schermo. 
Il comando HLIN X,Y AT Z trac¬ 
cia una linea orizzontale tra le 
coordinate orizzontali X e Y alla 
coordinata verticale Z. Quindi l'i¬ 
struzione HLIN 1,20 AT 10 collega 
i punti 1,10 e 20,10. VLIN X,Y AT 
Z fa la stessa cosa per una linea 
verticale. Quindi il comando VLIN 
1,20 AT 10 collega i punti 10,1 e 
10 , 20 . 

Per un esempio di grafica a bassa 


risoluzione, vedi il programma di 
figura 1 che traccia una cornice at¬ 
torno allo schermo. Infine, l'utente 
deve conoscere come uscire da 
questo modo grafico. Semplice- 
mente battendo TEXT: lo schermo 
si riporta alle solite 24 righe di te¬ 
sto e 40 caratteri per linea. 


Grafica ad alta risoluzione (hi-res) 

La grafica ad alta risoluzione 
dell’Apple offre alcune fra le mi¬ 
gliori capacità grafiche presenti sui 
microcomputer. Sebbene si possa¬ 
no usare solo otto colori, si può ot¬ 
tenere una risoluzione di 280x192 
pixel, permettendo di programma¬ 
re figure molto dettagliate e una 
grafica molto espressiva. 

Per passare al modo grafico in 
alta risoluzione si batte HGR. Ciò 
vi mette a disposizione un reticolo 
280x160 con quattro righe di testo 
in fondo allo schermo. Battendo 
HGR2 invece di HGR, oppure 
battendo POKE —16302,0 dopo 


aver battuto HGR ci si pone in 
modo grafico a schermo pieno, con 
una risoluzione di 280x192. 

I colori ad alta risoluzione si de¬ 
terminano in maniera simile alla 
basa risoluzione. HCOLOR= è 
l'equivalente dell'istruzione 
COLOR= in bassa risoluzione. Gli 
otto colori disponibili in alta risolu¬ 
zione sono: 

0 nero 

H . 

1 verde 

2 blu 

3 bianco 1 

4 nero 

5 dipende dalla TV 

6 dipende dalla TV 

7 bianco 2 

Le coordinate in alta risoluzione 
sono numerate da 0 a 279 lungo 
l’asse delle X (in cima allo scher¬ 
mo) e da 0 a 159 (HGR) o da 0 a 
191 (HGR2) lungo l’asse delle Y. 

L’istruzione equivalente a PLOT 
in alta risoluzione è HPLOT. 
HPLOT X,Y traccia un punto nel¬ 
la posizione X,Y. 

Nella grafica ad alta risoluzione, 
è possibile tracciare una linea da 
una posizione qualsiasi ad un’altra 
qualsiasi, anche in maniera diago¬ 
nale. L’istruzione HPLOT X,Y TO 
X,Y o HPLOT X,Y TO X,Y TO 
X,Y collega i punti indicati tra i 
TO. Si tratta di una istruzione mol¬ 
to potente, non disponibile in bas¬ 
sa risoluzione. 

Per un esempio di grafica in alta 
risoluzione sull'Apple, si veda il 
programma in figura 2 che traccia 
una cornice attorno allo schermo, 
come nell'esempio precedente. 

Anche in questo caso l’istruzione 
TEXT riporta il computer al nor¬ 
male text mode. 


10 HGR Grafica ad alta risoluzione 

20 COLOR =1 II colore è verde 

30 HPLOT 0,0 TO 0,159 TO 279, Collega i quattro angoli dello schermo 
159 TO 279,0 TO 0,0 


Fig. 2. Una cornice in alta risoluzione per l’Apple. 
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Conversioni grafiche 



CHR$(X) 



valore di X 

Azione 


24 

Sposta il cursore di un posto a sinistra 


25 

Sposta il cursore di un posto a destra 


26 

Sposta il cursore di una riga in basso 


27 

Sposta il cursore di un riga in alto 


28 

Sposta il cursore nell’angolo in alto a sinistra 


Tav. 1. Spostamento del cursore con CHR$ sul TRS-80 


TRS-80 

La grafica del TRS-80 è molto 
più semplice di quella dell’Apple, 
sebbene non sia così versatile. Non 
sono previsti speciali modi grafici. 
Il testo può essere stampato in una 
determinata posizione dello scher¬ 
mo (come con le istruzioni VTAB 
e HTAB dell’Apple) e si può usare 
la grafica sullo stesso schermo. La 
risoluzione del TRS-80 può essere 
paragonata alla bassa risoluzione 
dell’Apple. 

I modelli I e III sono quasi iden¬ 
tici: il 95% delle istruzioni TRS-80 
possono essere usate sulle due 
macchine. Per questo motivo par¬ 
lerò semplicemente di TRS-80 rife¬ 
rendomi ai due modelli. Quando 
una particolare caratteristica è di¬ 
sponibile solo su un modello, lo 
specificherò. 


Istruzioni PRINT 

Il TRS-80, come l’Apple, può 
produrre grafica mediante le istru¬ 
zioni PRINT. Tuttavia, il TRS-80 
ha una speciale istruzione 
PRINT@, che rende possibile il ri¬ 
ferimento ad ogni posizione dello 
schermo mediante un semplice nu¬ 
mero. Può essere una istruzione 
molto potente se usata efficace¬ 
mente. 

Lo schermo del TRS-80 è com¬ 
posto di 16 righe ognuna di 64 ca¬ 
ratteri, per un totale di 1024 possi¬ 
bili posizioni. Queste posizioni so¬ 
no numerate da 0 a 1023, con lo 0 
in alto a sinistra, 63 alla fine della 
prima riga, 64 all’inizio della se¬ 
conda riga, e così via fino a 1023 in 
basso a destra. La sintassi di questa 


istruzione è PRINT@ XXXX,... 
dove XXXX è un numero da 0 a 
1023 e... è qualunque espressione 
valida in una normale istruzione 
PRINT. 

Torniamo agli esempi visti per 
l’Apple. Prima battete 

FOR 1=1 TO 12 

PRINT “HELLO” 

NEXT 

Per sostituire il quinto HELLO 
con CIAO sull'Apple scrivevamo 

VTAB 5 

PRINT “CIAO ”. 

Sul TRS-80 invece il miglior modo 
per fare la stessa cosa c di identifi¬ 
care il valore numerico della prima 
locazione della quinta riga dello 
schermo. A tal scopo possiamo 
usare la formula (X— 1 )*64, e scri¬ 
viamo 

PRINT@ (5—1)*64, “CIAO” 

Notate, che il cursore è stato 
spostato sulla quinta riga dello 
schermo e quindi la parola REA¬ 
DY viene ora scritta su un HEL¬ 
LO. Se non volete che ciò succeda, 
potete aggiungere 

PRINT® (13 — 1 )*64,“ 

che riporta il cursore sulla tredice¬ 
sima riga. 


Molto spesso, nel convertire la 
grafica, è conveniente spostare il 
cursore in su o in giù di un posto 
senza usare l’istruzione PRINT®. 
Per esempio quando non si cono¬ 
sce la posizione attuale del cursore, 
oppure nel convertire un program¬ 
ma PET che usa un metodo specia¬ 
le per posizionare il cursore. Si può 
farlo usando la funzione CHR$. 
Scrivendo PRINT CHR$(X) si ot¬ 
tiene l’azione indicata nella tavola 
1. 


Caratteri grafici 

Il TRS-80 può creare grafica an¬ 
che scrivendo speciali caratteri gra¬ 
fici. Questi caratteri (vedi figura 3) 
consistono di tutte le 64 possibili 
permutazioni on/off di una matrice 
2x3 (2 2 3 =2 6 =64). Questi caratteri 
grafici possono essere stampati 
usando la funzione CHR$. Batten¬ 
do CHR$(X), dove X è il codice 
numerico del carattere speciale ri¬ 
chiesto, si ottiene la stampa di quel 
carattere. Questa funzione può es¬ 
sere usata anche assieme alla fun¬ 
zione PRINT@. Inoltre, l’istruzio¬ 
ne PRINT STRING$(X,Y) scrive 
una stringa di X caratteri grafici Y. 
Quindi l’istruzione PRINT® 
0,STRING$(64,191) stampa una li¬ 
nea orizzontale in cima allo scher¬ 
mo. 
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Il TRS-80 modello III ha ulterio¬ 
ri 96 caratteri speciali. Sessanta- 
quattro di questi possono essere 
stampati esattamente come i ses- 
santaquattro visti sopra. Si tratta 
dei codici 192-255 (vedi figura 4). 
Tuttavia, c’è una piccola istruzione 
che deve essere eseguita prima di 
stampare questi caratteri. Quando 
si accende il modello III, questi 64 
codici rappresentano caratteri di 
“compressione spazio”. PRINT 
CHR$(192) non stampa alcun spa¬ 
zio, PRINT CHR$(193) stampa 
uno spazio, fino a PRINT 
CHR$(255) che stampa 63 spazi. 
Per sostituire questi caratteri di 
compressione dello spazio con gli 
speciali caratteri grafici, battete 
PRINT CHR$(21). Questa istru¬ 
zione funziona come un commuta¬ 
tore tra i caratteri di compressione 
spazio e i caratteri grafici speciali. 


Il TRS-80 modello III 
ha uno speciale 
insieme di 96 caratteri 
grafici e un ulteriore 
insieme di caratteri 
giapponesi. 


Oltre ai 64 caratteri grafici spe¬ 
ciali disponibili sul modello III, esi¬ 
ste uno speciale insieme di caratte¬ 
ri giapponesi. I loro codici vanno 
da 192 a 255 come i caratteri grafici 
speciali, ma vengono selezionati 
eseguendo PRINT CHR$(22) dopo 
aver selezionato l’insieme dei ca¬ 
ratteri speciali con l’istruzione 
PRINT CHR$(21). 
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Fig. 3. Caratteri grafici del TRS-80 (codici 128-191) 
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10 CLS 

20 FOR X=0 TO 127: SET (X,47): 
SET (X,0): NEXT: 

FOR X=0 TO 47: SET(0,X): 
SET(127,X): NEXT 
30 PRINT 512, “BATTI ENTER 
PER VEDERE I 
CARATTERI SPECIALI” 

40 INPUT”” ;X$ 

50 CLS 

60 PRINT CHR$(21) 

70 FOR 1=192 TO 255: 

PRINT CHR$(I):;“”;: 

NEXT 

80 INPUT“BATTI ENTER PER 
VEDERE I CARATTERI 
GIAPPONESI” ;X$ 

90 PRINT CHR$(22) 

100 INPUT“BATTI ENTER 
PER FINIRE” ;X$ 

110 PRINT CHR$(22); CHR$(21);: 
CLS: END 


Azzera lo schermo 

Traccia una cornice attorno allo schermo 


Messaggio al centro dello schermo 

Attende che venga battuto un tasto 
Azzera lo schermo 
Seleziona i caratteri grafici 
Stampa i caratteri 

Attende 

Seleziona i caratteri giapponesi 
Attende 

Seleziona i caratteri standard e azzera 
lo schermo 


_ _ - 

Fig. 5. Programma dimostrativo della grafica del TRS-80 


Conversioni grafiche 


Se siete sorpresi dal numero di 
caratteri disponibili sul modello 
III, c’è ancora un’altra sorpresa 
per voi. Esiste un altro insieme di 
caratteri sul modello III. Sono i co¬ 
dici 0-31 (vedi figura 4). Tuttavia, 
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Fig. 4. Caratteri grafici speciali del 
TRS-80 modello III (codici 0-31, 
192-255) 


essi sono accessibili solo con istru¬ 
zioni POKE. Per poter stampare 
un carattere grafico da 0 a 31, il va¬ 
lore di quel carattere deve essere 
posto in appropriate locazioni di 
memoria che la Radio Shack chia¬ 
ma vidram. Questi indirizzi di vi¬ 
deo partono da 15360 e arrivano a 
16383 e sono equivalenti ad una 
PRINT@indirizzo+15360. Quindi, 
per scrivere il carattere speciale 10 
all’inizio dello schermo, dovete 
battere POKE 15360,10. 

Non abbiamo finito con le capa¬ 
cità grafiche del TRS-80. Ambedue 
i modelli possono anche tracciare 
punti sullo schermo. Questi punti 
possono apparire sullo schermo as¬ 
sieme alle altre caratteristiche gra¬ 
fiche del TRS-80, e anche assieme 
a testo. 

Lo schermo del TRS-80 è diviso 
in una matrice 128x48, ogni blocco 
della quale può semplicemente es¬ 
sere posto on o off. I due modelli 
non prevedono il colore. 

L’istruzione SET (X,Y) accende 
il blocco grafico nella posizione X 
(orizzontale) e Y (verticale). Il va¬ 
lore di X può essere tra 0 e 127, 
mentre il valore di Y può essere tra 
0 e 47. Una importante differenza 
tra accendere un blocco grafico e 
stampare un carattere grafico è che 
un blocco grafico non provoca lo 
scrolling dello schermo. 


L’istruzione RESET, come detto 
prima, spegne il blocco grafico spe¬ 
cificato. La sintassi dell’istruzione 
è RESET (X,Y) ed ha esattamente 
gli stessi parametri dell’istruzione 
SET. Vedi la figura 5 per un esem¬ 
pio che dimostra alcune caratteri¬ 
stiche di base della grafica del 
TRS-80. 


PET 

La grafica del PET è molto diffe¬ 
rente da quella del TRS-80. Sul 
PET non ci sono modi grafici spe¬ 
ciali, né ci si può riferire ad un 
punto specifico sullo schermo per 
mezzo di coordinate. Essenzial¬ 
mente la grafica del PET consiste 
di istruzioni PRINT standard com¬ 
binate con caratteri speciali di mo¬ 
vimento del cursore. (I caratteri 
grafici che possono essere stampati 
si ottengono premendo il tasto 
SHIFT e un altro tasto. I tasti di 
movimento del cursore sono speci¬ 
ficamente indicati, e talvolta vanno 
premuti assieme a SHIFT). (Vedi 
figura 6). 

Il PET ha sei caratteri di movi¬ 
mento del cursore. Questi caratteri 
sono trattati come ogni altro carat¬ 
tere sulla tastiera in quanto posso¬ 
no essere assegnati ad una stringa e 
stampati. Quando sono stampati, 
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Fig. 6. Caratteri standard del PET 
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Conversioni grafiche 


appaiono come simboli speciali, di¬ 
versi da ogni carattere su ogni altro 
computer. 

Il tasto HOME riporta il cursore 
nell'angolo in alto a sinistra dello 
schermo. Viene stampato come 
una S in campo inverso. 

Il tasto HOME assieme a SHIFT 
fa la stessa cosa ma in più azzera il 
video. Appare sullo schermo come 
un cuore in campo inverso. 

Il tasto CRSR giù/su sposta il 
cursore in giù di una linea. Appare 
come una Q in campo inverso. Lo 
stesso tasto con SHIFT muove il 
cursore in su. Appare come un cer¬ 
chio vuoto con un bordo nero. 

Il tasto CRSR destra/sinistra 
sposta il cursore di una posizione a 
destra. Appare sullo schermo come 
una parentesi quadra in campo in¬ 
verso. 

Lo stesso tasto con SHIFT spo¬ 
sta il cursore di una posizione a si¬ 
nistra. Appare sullo schermo come 
un rettangolo nero con una linea 
bianca verticale. 

Questi sei caratteri di controllo 
del cursore possono essere trattati 
esattamente come ogni altro carat¬ 
tere del PET. Per esempio l’istru¬ 
zione 

PRINT“(SHIFTHOME)(CRSR giù) 
(CRSR giù) (CRSR giù)HELLO” 


azzera lo schermo e posiziona la 
parola HELLO sulla quarta linea. 

Il PET ha anche un insieme al¬ 
ternativo di caratteri, che si può se- 
lezionare battendo POKE 
59468,14. La tastiera in questo mo¬ 
do funziona come una comune ta¬ 
stiera con le maiuscole e le minu¬ 
scole. Per tornare al set standard di 
caratteri si esegue la POKE 
59468,12. 

Il programma in figura 7, sebbe¬ 
ne molto semplice, illustra il meto¬ 
do di base per inserire la grafica in 
un programma per il PET. Il pro¬ 
gramma azzera lo schermo, sposta 
il cursore alla quarta riga e traccia 
un quadrato. 

Conversione dal TRS-80 all’Apple 

Nel convertire un programma 
dal TRS-80 all’Apple, potete usare 
il modo TEXT, la grafica a bassa 
risoluzione, o la grafica ad alta ri¬ 
soluzione. 

Il modo TEXT deve essere usato 
quando il programma originale 
comprende istruzioni PRINT@ o 
semplicemente istruzioni PRINT, e 
il testo o la grafica sullo schermo 
possono essere condensati su 40 
colonne. A parte lo schermo più 
piccolo, l’unico inconveniente nel¬ 


l’usare l’Apple sarà che i caratteri 
grafici non possono essere usati nel 
modo TEXT. 

L’istruzione che più produce 
confusione è probabilmente la 
PRINT@. Tuttavia, si tratta dell’i¬ 
struzione più facile da convertire. 
L’istruzione TRS-80 PRINT@X, 
“QUESTA È UNA PROVA” può 
essere convertita in tre istruzioni 
Apple 

VTAB INT(X/64)+1 
HTAB X+1 —INT(X/64)*64 
PRINT“QUESTA È UNA 
PROVA” 

Nell’usare questa procedura di 
conversione, tuttavia, il program¬ 
matore deve fare attenzione a che 
HTAB non superi la colonna 40. 
Lo schermo del TRS-80 è largo 64 
colonne, contrariamente allo scher¬ 
mo dell’Apple che ne ha 40. Se so¬ 
no necessarie solo 40 colonne, que¬ 
sta procedura è probabilmente la 
più semplice da usare. Può essere 
consigliabile, tuttavia, tracciare su 
carta i risultati delle istruzioni 
PRINT@ per ottenere risultati più 
piacevoli. 

La conversione più semplice tra 
TRS-80 e Apple (in modo TEXT) 
è l’azzeramento dello schermo. Ba¬ 
sta sostituire ogni CLS con un HO¬ 
ME. 


10 PRINT'(SHIFT HOME)(CRSR giù) 
(CRSR giù)(CRSR giù)’’; 

20 PRINT “-” 

30 FOR 1 = 1 TO 7: PRINT“-I I”:NEXT 
40 PRINT"-” 



Azzera lo schermo e sposta il cursore in giù di quattro righe 

Traccia il lato superiore del quadrato 
Traccia i lati del quadrato 
Traccia il lato inferiore del quadrato 


Fig. 7. Programma dimostrativo per la grafica del PET 
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La grafica del TRS-80 può essere 
simulata in alta risoluzione o in 
bassa risoluzione. Questi metodi 
forniscono i risultati grafici più pia¬ 
cevoli. Tuttavia se occorre traccia¬ 
re sullo stesso schermo testo e gra¬ 
fica, deve essere usato il modo 
TEXT. In questo caso, dovete se¬ 
guire le istruzioni della grafica a 
bassa risoluzione sostituendo però 
HOME a GR (per azzerare lo 
schermo ma non entrare nel modo 
grafico). 


Su un Apple, la grafica 
del TRS-80 può essere 
simulata in alta o in 
bassa risoluzione. 


Le istruzioni PLOT, se usate al¬ 
l’interno del modo TEXT, non 
tracciano blocchi grafici alle coor¬ 
dinate appropriate, ma pongono 
invece sullo schermo caratteri stan¬ 
dard di testo. I caratteri che vengo¬ 
no stampati possono essere prede- 
terminati, ma ciò va al di là dello 
scopo di questo articolo. 

L’istruzione del TRS-80 
CHR$(31) azzera lo schermo dalla 
posizione del cursore in avanti. 
Sull’Apple si può simulare con l’i¬ 
struzione CALL—958. 

I caratteri grafici speciali del 
TRS-80 (compreso l’insieme di ca¬ 
ratteri alternativi del modello III) 
non possono essere facilmente ri¬ 
prodotti sull’Apple. Se avete un 
programma con testi e caratteri 
grafici speciali, le sole possibilità 
sono sostituire i caratteri con quelli 
standard dell’Apple o usare la gra¬ 


fica ad alta risoluzione e creare un 
generatore di caratteri, il che, per 
un programmatore inesperto, è 
un’impresa molto difficile. 

Se nel programma TRS-80 sono 
usati solo caratteri grafici (istruzio¬ 
ne SET) si può usare la grafica a 
bassa risoluzione dell’Apple. Ma, 
ricordate, la bassa risoluzione per¬ 
mette al massimo una matrice 
40x48 (senza testo) mentre il TRS- 
80 ha una matrice grafica di 
128x48. Tuttavia, se è possibile 
programmare un particolare appli¬ 
cazione entro questi vincoli, la gra¬ 
fica a bassa risoluzione è preferibi¬ 
le. E più semplice da usare di quel¬ 
la ad alta risoluzione e permette un 
numero doppio di colori. 

Lo schermo del TRS-80 deve pe¬ 
rò essere “condensato” a 40x48 o 
40x40. Una volta fatto questo, la 
procedura di conversione è molto 
semplice. 

Nel programma del TRS-80, 
guardate dove inizia la parte grafi¬ 
ca. Generalmente a questo punto 
c’è una istruzione CLS. Sostituitela 
con GR per azzerare lo schermo e 
passare alla bassa risoluzione. 

Le successive istruzioni PRINT 
del programma dovranno essere ri¬ 
strette a quattro linee di testo. Tali 
linee dovranno essere contigue in 
fondo allo schermo. Non c’è biso¬ 
gno di nessuna particolare conver¬ 
sione delle istruzioni PRINT, a 
meno che non ci sia PRINT@. In 
questo caso, ricordate che si posso¬ 
no usare solo le righe 21-24 per i 
testi in grafica a bassa risoluzione. 

Se desiderate sostituire le quat¬ 
tro righe di testo con altre otto li¬ 
nee di grafica, eseguite l’istruzione 
POKE—16302,0. Avrete disponibi¬ 
le una matrice 40x48. 


Prima di tracciare i punti bisogna 
scegliere un colore. (Il colore può 
essere cambiato in ogni momento 
nel programma senza cambiare la 
grafica già tracciata). Si fa ciò con 
l’istruzione COLOR= (vedi so¬ 
pra). 

Tutte le istruzioni SET devono 
essere sostituite con istruzioni 
PLOT. Essenzialmente, SET 
(X,Y) diventa PLOT X,Y. Non 
tutti i valori validi per X e Y in una 
SET sono validi in una PLOT. X in 
una PLOT non può superare 39, 
ed Y non può superare 39 o 47 se¬ 
condo che lo schermo sia tutto ri¬ 
servato alla grafica o ci sia anche 
testo. 

Il passo finale è tradurre l’istru¬ 
zione RESET del TRS-80. Si fa 
esattamente come con una SET, 
ma il colore deve essere scelto 
uguale al fondo (generalmente ne¬ 
ro). Quindi l’esecuzione di una 
PLOT trasforma il blocco grafico 
nel suo stato originale. 


Grafica ad alta risoluzione 

La conversione della grafica del 
TRS-80 in grafica ad alta risoluzio¬ 
ne è più complicata, ma i risultati 
valgono lo sforzo. L’intero reticolo 
128x48 può essere trasferito nello 
schermo dell’Apple, assieme a tutti 
i 64 caratteri grafici (codici ASCII 
da 128 a 191). Anche l’insieme al¬ 
ternativo di caratteri del modello 
III può essere simulato, sebbene 
ciò richieda in qualche caso sostan¬ 
ziali sforzi programmatici. 

Prima di iniziare a discutere la 
procedura di conversione, diamo 
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Conversioni grafiche 


Valore X Apple 

Valore Y Apple 

Posizione 

X*2 

Y*3 

in alto a sinistra 

X*2 + l 

Y*3 

in alto a destra 

X*2 

Y*3+l 

in centro a sinistra 

X*2+l 

Y*3+l 

in centro a destra 

X*2 

Y*3+2 

in basso a sinistra 

X+2+1 

Y*3+2 

in basso a destra 


Tav. 2. Punti sull’Apple che compongono un blocco grafico TRS-80 


un'occhiata più da vicino alle capa¬ 
cità grafiche del TRS-80. Abbiamo 
detto che lo schermo è 128x48. 
Ma è realmente così? In effetti, 
ogni blocco grafico è, per se stesso, 
una matrice alta tre blocchi e larga 
due. Questo significa che lo scher¬ 
mo del TRS-80 può essere rappre¬ 
sentato come uno schermo di 
(128x2)x(48x3) cioè 256x144 
blocchi. L’Apple, nella grafica ad 
alta risoluzione assieme a testo, ha 
280x160 blocchi, così che di fatto 
l'intero schermo del TRS-80 può 
essere rappresentato nell’Apple. 

Se avete seguito fin qui, avrete 
probabilmente notato che c’è un 
piccolo problema in questa proce¬ 
dura di conversione. Lo schermo 
del TRS-80, ricorderete, è compo¬ 
sto di 6144 blocchi. La porzione 
dello schermo dell’Apple che use¬ 
remo, invece, ne contiene 256x144 
cioè 36864. Ciò significa che dovre¬ 
mo tracciare 36864/6144 cioè 6 
punti sull’Apple per ogni punto del 
TRS-80. Ecco come si fa. 

Dapprima scegliete il modo gra¬ 
fico appropriato per la vostra ap¬ 
plicazione (HGR o HGR2). Gene¬ 
ralmente è sufficiente HGR, per¬ 
ché anche con le linee di testo in 
fondo allo schermo c’è posto suffi¬ 
ciente per sistemare l’intero scher¬ 
mo del TRS-80. 

Il prossimo passo è scegliere un 
colore con l'istruzione 
HCOLOR=. Si può fare molto 
semplicemente scegliendo un valo¬ 
re dall’elenco presentato in questo 
articolo. 

Ogni volta che incontrate una 
istruzione SET(X,Y), deve essere 
convertita nelle equivalenti istru¬ 
zioni HPLOT. Le coordinate X e 
Y dell’istruzione SET possono es- 


l’Apple. Le coordinate X*2, Y*3 
corrispondono al punto in alto a si¬ 
nistra del reticolo Apple 2x3 di 
quel punto. Vedi nella tavola 2 la 
lista dei sei punti sull'Apple che 
compongono quel punto. 

Se dovete riempire l'intero bloc¬ 
co, eseguite le istruzioni 

HPLOT X*2,Y*3 TO X*2,Y*3+2 
HPLOT X*2+ 1,Y*3 TO 
X*2+l,Y*3+2 

E una buona idea scrivere queste 
istruzioni in una subroutine. Quin¬ 
di, ogni volta che appare un’istru¬ 
zione tipo SET(X,Y) nella vostra 
lista, potete semplicemente sosti¬ 
tuirla con le istruzioni 

X=2: Y=3: GOSUB 10000 

(se avete scritto la subroutine pre¬ 
cedente dalla linea 10000 e avete 
aggiunto RETURN). 

Tracciare uno dei 64 caratteri 
grafici del TRS-80 è molto sempli¬ 
ce. Prima consultare l’elenco per 
vedere quali dei sei blocchi grafici 
deve essere tracciato. 

Quindi applicate le formule del¬ 
l’elenco e HPLOT le coordinate 
appropriate. 

Per esempio, supponiamo di vo¬ 
ler stampare il carattere 179. Esa¬ 


minando l’elenco, possiamo vedere 
che è composto dai seguenti punti 
della matrice 2x3: in alto a sini¬ 
stra, in alto a destra, in basso a si¬ 
nistra e in basso a destra. 

Se desideriamo tracciarlo alle 
coordinate TRS-80 (50,100), do¬ 
vremo eseguire le seguenti istruzio¬ 
ni: 

HPLOT 50*2+1,100*3+2 
HPLOT 50*2, 100*3+2 
HPLOT 50*2+1,100*3 
HPLOT 50*2,100*3 

Conversione dal PET all’Apple 

Convertire la grafica del PET 
per l’Apple può essere eccessiva¬ 
mente frustrante se sono usati gli 
speciali caratteri grafici del PET. 

Produrre questi carattere sul¬ 
l’Apple è spesso confrontabile con 
il produrre i caratteri speciali del 
modello III. In molti casi è consi¬ 
gliabile riscrivere l’intero algoritmo 
di programma in modo che sia più 
adatto all’Apple. 

Se i caratteri grafici usati sul 
PET sono tali che vi è un carattere 
simile nell’Apple, la conversione è 
molto semplice. Lo schermo del 
PET è composto di 25 righe da 40 
caratteri ognuna, e lo schermo del¬ 
l’Apple contiene 24 righe da 40 ca¬ 
ratteri ognuna. 
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Carattere controllo cursore PET 

Istruzione locazione cursore Apple 

(HOME) 

VTAB 1: HTAB 1 

(SHIFT HOME) 

HOME 

(CRSR giù) 

VTAB PEEK(37)+2 

(CRSR su) 

VTAB PEEK(37) 

(CRSR destra) 

HTAB PEEK(36)+2 

(CRSR sinistra) 

HTAB PEEK(36) 


Tav. 3. Corrispondenza tra PET e Apple per il posizionamento del cursore 


Il problema principale nella con¬ 
versione tra PET e Apple è sosti¬ 
tuire con le appropriate istruzioni 
VTAB e HTAB i caratteri di movi¬ 
mento del cursore del PET. Gene¬ 
ralmente lo si può fare direttamen¬ 
te usando la tavola 3. 

Ora, supponiamo di avere un 
programma per un PET che azzera 
lo schermo e traccia una linea sulla 
quinta riga dello schermo. Il pro¬ 
gramma dovrebbe avere una istru¬ 
zione 

PRINT“(CLEAR)(CRSR giù) 
(CRSR giù) (CRSR giù)...” 

La traduzione per l’Apple sareb¬ 
be 

HOME 

VTAB PEEK(37)+2 
VTAB PEEK(37)+2 
VTAB PEEK(37)+2 
VTAB PEEK(37)+2 
PRINT“...” 


Si noti che i caratteri di posizio¬ 
namento del cursore nel PET fan¬ 
no parte dell’insieme dei caratteri e 
quindi vengono stampati come ele¬ 
menti di una stringa. L’Apple inve¬ 
ce, ha istruzioni di movimento del 
cursore che non possono essere 
usate all’interno di istruzioni 
PRINT. 

Sia il PET che l’Apple hanno la 
possibilità di scrivere in modo 
“inverso”. Sul PET ci sono due ca¬ 
ratteri che, ancora, devono essere 
usati all’interno di un PRINT. Sul¬ 
l’Apple ci sono due istruzioni sepa¬ 
rate per controllare questa funzio¬ 
ne. Si veda la tavola 4. 

I metodi usati dal PET e dal¬ 
l’Apple per “invertire” il video so¬ 
no molto simili. Eseguendo l’op¬ 
portuna istruzione tutto l’output 
successivo viene visualizzato in mo¬ 
do inverso. C’è però una piccola 
differenza. L’istruzione INVERSE 


dell’Apple può essere cancellata 
solo da una istruzione NORMAL. 
Sul PET, il modo inverso può esse¬ 
re cancellato da un (OFF) (SHIFT 
e RVS) o da un RETURN. 

Supponiamo che il programma 
PET che state traducendo abbia l’i¬ 
struzione 

PRINT“(RVS)QUESTO È IN 
CAMPO INVERSO 
(SHIFT RVS) MENTRE 
QUESTO NO” 

L'istruzione Apple equivalente è 

INVERSE PRINT“QUESTO È 
IN CAMPO INVERSO”; 
NORMAL PRINT“MENTRE 
QUESTO NO” 

Conversione dall’Apple al TRS-80 

Quando possibile, la conversione 
da Apple a TRS-80 è molto sempli¬ 
ce. La maggior parte dell’output 
scritto può essere trasferito nel 
TRS-80, ma poiché lo schermo del 
TRS-80 ha solo sedici righe, men¬ 
tre quello dell’Apple ne ha venti- 
quattro, in alcuni casi lo schermo 
deve essere compresso o modifica¬ 
to in qualche altro modo. 

Solo due dei tre “modi” possono 
essere simulati sul TRS-80. L’out¬ 
put ottenuto con PRINT (VTAB, 
HTAB, ecc.) può essere convertito 
facilmente, così come la grafica in 
bassa risoluzione. Il TRS-80 non 
ha tuttavia, la capacità di riprodur¬ 
re la grafica ad alta risoluzione del¬ 
l’Apple. 

Se si deve convertire grafica ad 
alta risoluzione per il TRS-80 si de¬ 
ve usare la grafica standard del 
TRS-80, perdendo una parte consi¬ 
derevole di risoluzione. 


Carattere PET 

Istruzioni Apple 

Funzione 

RVS 

INVERSE 

Tutti i successivi caratteri 



vengono stampati in campo 
. 


7=7 : :H ' - . V : 

inverso 

OFF 

NORMAL 

Annulla ogni istruzione di 


* 

inversione dei caratteri 


Tav. 4. Corrispondenza tra PET e Apple per la scrittura in campo inverso 
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Conversioni grafiche 


Caratteri controllo cursore PET 

Codice ASCII TRS-80 

(HOME) 


28 

(CRSR giù) 


26 

(CRSR su) 


27 

(CRSR destra) 

' 

25 

(CRSR sinistra) 


24 



Tav. 5. Corrispondenza tra PET e TRS-80 per il posizionamento del curso¬ 
re 


L’unico potenziale problema nel 
convertire un programma Apple 
per il TRS-80 è nel localizzare l’i¬ 
struzione PRINT@ equivalente 
per un dato insieme di locazioni 
HTAB e VTAB. 

Per ogni coppia di valori X e Y, 
l’istruzione Apple VTAB X: 
HTAB Y è equivalente all’espres¬ 
sione TRS-80 

PRINT@(X*64) +Y—65 

Usando questo metodo, tuttavia, 
vi è il problema che la formula non 
può essere usata in una situazione 
in cui X è maggiore di 16. L’unica 
soluzione a questo problema sta 
nel ridisegnare lo schermo in modo 
che vengano usate solo 16 righe di 
testo. 

Un altro elemento nel convertire 
un programma Apple al TRS-80 è 
l’azzeramento dello schermo. Sem¬ 
plicemente, si sostituisce ogni HO¬ 
ME del programma Apple con un 
CLS nel programma TRS-80. 


Il TRS-80 non ha la 
capacità di riprodurre 
la grafica ad alta 
risoluzione dell’Apple. 


La grafica a bassa risoluzione 
deir Apple può essere duplicata 
molto facilmente sul TRS-80. Poi¬ 
ché la grafica a bassa risoluzione 
contiene al massimo una matrice 
40x48 e lo schermo del TRS-80 ha 
una matrice 128x48, questa parti¬ 
colare conversione è immediata. 

Quando incontrate una istruzio¬ 
ne GR, sostituitela con CLS. 

Quindi, semplicemente sostituire 
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ogni PLOT X,Y con SET(X,Y). 1 
valori di X e Y non cambiano in 
questo caso. 

Il colore non può essere ripro¬ 
dotto su TRS-80, e dunque l’istru¬ 
zione COLOR= deve essere igno¬ 
rata, eccetto quando il colore è 
messo a 0 o comunque uguale al 
colore di fondo. In questo caso, le 
successive istruzioni PLOT devono 
essere sostituite con istruzioni RE¬ 
SET per cancellare i blocchi grafici 
alle coordinate opportune. 

Conversione dal PET al TRS-80 

Convertire un programma PET af¬ 
finché giri su un TRS-80 è simile a 
convertirlo per girare sull’Apple. 
Lo schermo di 25 righe del PET 
viene però ridotto a 16 righe, non a 
24. Inoltre, molti dei caratteri spe¬ 
ciali PET non hanno un parallelo 
sul TRS-80. Se non si trova un so¬ 
stituto adatto, la sola soluzione è 
tracciare i singoli punti del pro¬ 
gramma PET ed escogitare un al¬ 
goritmo per usare le istruzioni SET 
del TRS-80 o per stampare con 
PRINT gli speciali caratteri grafici. 

Convertendo da PET a TRS-80, 
probabilmente la maggiore confu¬ 
sione è data dai caratteri di con¬ 
trollo del cursore del PET. Tutta¬ 
via, questi caratteri di controllo, 


hanno equivalenti diretti sul TRS- 
80, come indica la tavola 5. 

I codici del TRS-80 vanno usati 
con la funzione CHR$ e scritti con 
PRINT. (Assicuratevi di aver mes¬ 
so un punto e virgola dopo la 
PRINT). Quindi, l’equivalente del¬ 
l’istruzione PET 

PRINT“(HOME)(CRSR giù) 
(CRSR destra)TEST” 

sarà 

PRINT CHR$(28) ;CHR$(26) ; 
CHR$(25); “TEST” 

Un carattere PET non ha un co¬ 
dice ASCII sul TRS-80: l’azzera¬ 
mento dello schermo (sul PET è 
(SHIFT HOME)) deve essere so¬ 
stituito con CLS sul TRS-80. 


Conversione dall’Apple al PET 

Convertire un programma dal¬ 
l’Apple al PET è, in molti casi, 
quasi impossibile. Le capacità gra¬ 
fiche del PET operano in maniera 
molto differente da quelle di molti 
altri computer. Il maggior proble¬ 
ma in questa conversione è che con 
il PET non vi è la possibilità di ac¬ 
cedere ad una particolare posizione 
dello schermo direttamente con un 
insieme di coordinate come le 
istruzioni Apple VTAB e HTAB o 
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l’istruzione TRS-80 PRINT@. Il 
miglior consiglio che si possa dare 
a coloro che possiedono un PET è 
di riscrivere la routine grafiche dei 
loro programmi in modo da ripro¬ 
durre la grafica in modo efficace. 

C’è un modo di creare una su¬ 
broutine per simulare le istruzioni 
VTAB e HTAB, ma generalmente 
non è consigliabile a meno che non 
si stia usando una grafica relativa¬ 
mente semplice. Può essere usato 
solo per la grafica con PRINT, 
quella a bassa e ad alta risoluzione 
non può essere tradotta diretta- 
mente. 

Essenzialmente, dobbiamo pri¬ 
ma portare il cursore in alto a sini¬ 
stra (HOME) quindi stampare tan¬ 
ti (CRSR giù) quanto è l’argomen¬ 
to di VTAB meno 1 e tanti (CRSR 
destra) quanto è l’argomento di 
HTAB meno 1. Quindi, l’istruzio¬ 
ne 

VTAB 4 
HTAB 4 

PRINT“QUESTO È UN TEST” 
può essere convertita in 

PRINT“(HOME)(CRSR giù) 

(CRSR giù)(CRSR giù) 
(CRSR destra)(CRSR 
destra)(CRSR destra) 
QUESTO È UN TEST” 

Con un ciclo FOR-NEXT, que¬ 
sto si può fare in una subroutine. 
Si tratta di un modo molto primiti¬ 
vo di convertire una istruzione 
VTAB, ma è una possibilità per 
programmi grafici relativamente 
semplici. 

L’altra necessaria conversione 
tra Apple e PET è l’azzeramento 
dello schermo. Sul PET l’istruzione 
equivalente a HOME è 
PRINT“(SHIFT HOME)”. 


Conversione dal TRS-80 al PET 

Convertire un programma da 
TRS-80 è sostanzialmente la stessa 
cosa di convertire un programma 
da Apple a PET. È molto difficile 
da fare, e i risultati non sono così 
efficienti se si usa lo stesso algorit¬ 
mo. 

L’istruzione di azzeramento del¬ 
lo schermo su TRS-80 è CLS. De¬ 
ve essere sostituita con un 
PRINT“(SHIFT HOME)”. 

Se è assolutamente necessario 
convertire un programma TRS-80 
per il PET direttamente, lo si può 
fare. Tuttavia, come per l’Apple, 
solo il testo può essere trattato di¬ 
rettamente. Questo significa che 
un programma grafico che usa 
istruzioni SET non può general¬ 
mente venir convertito. 

Le istruzioni PRINT@ sono soli¬ 
tamente il mezzo principale di pro¬ 
durre grafica sul TRS-80 senza 
istruzioni SET. L’indirizzo di 
PRINT@ deve dapprima essere 
convertito nelle equivalenti coordi¬ 
nate orizzontale e verticale. Per 


ogni indirizzo A di PRINT@A, la 
corrispondente coordinata Y è IN- 
T(A/64) + l e la coordinata X è 
A+l —INT(A/64)*64. 

Una volta calcolate queste coor¬ 
dinate per spostare il cursore, può 
essere eseguita la procedura sopra 
descritta per la conversione da Ap¬ 
ple a PET. 

Le tecniche di conversione grafi¬ 
ca qui descritte non esauriscono 
tutti i possibili metodi di conversio¬ 
ne, né è stata descritta ogni istru¬ 
zione grafica di ogni computer di 
cui si è parlato. Quello che si è ten¬ 
tato di fare è familiarizzare il letto¬ 
re con i principi grafici basilari di 
ogni computer e fornire qualche in¬ 
dicazione su come affrontare il 
processo di conversione. 

La conversione grafica è senza 
dubbio un obiettivo complesso; 
una volta compreso come un com¬ 
puter funzioni, la creatività del 
programmatore influenzerà la sua 
tecnica di conversione più di ogni 
altra cosa. 


SOFTWARE WANTED 

Se sei un programmatore 
interessato a far fruttare la tua inventiva, scrivici. 

Siamo interessati a software di giochi, 

Utilities, programmi applicativi. 


COMPLETO SOFTWARE 

Via Bonporti 32 
35100 Padova 
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IMPARIAMO IL PASCAL 



Compattezza, concisione, chiarezza e notevoli potenzialità scientifiche, 
oltre a prestarsi ottimamente per calcoli gestionali e ad essere usato 
anche con i microcomputer, sono le caratteristiche che decre¬ 
tano il successo del PASCAL come linguaggio di pro¬ 
grammazione. Non vi era però finora un testo che 
insegnasse a tutti a programmare in PASCAL: o 
fe|. perchè i libri esistenti sono troppo concisi, o 

troppo semplici, oppure perchè richie- 
WMtm dono la conoscenza di altri lin- 

/ guaggi di programmazio- 

Jr / non tedia con accade- 

-WM:/ non funzionali il 


/■■■'ISo : che la loro consulta- 
/ M ;né sia semplice ed agevole. 

/ A o riassunto di quanto si ap- 
riderà è posto all’inizio e non 
ondo al capitolo, perchè il let- 
J 'è possa subito avere un metro 
W con cui verificare passo- 

W suo a PP rer| dimento. E poi, ci 

F j B l^BNfònsiali. problemi, esercizi affin- 
libro sia "usato” e non letto, perchè 
JmBm&Órre sapere come si usa un’istruzione 
l^^pàtÒ' che conoscerne le differenze se- 
K®piBnfe tra linguaggio e linguaggio. Con un 
Bprò graduale, partendo senza alcuna cono- 
pzadi programmazione, dopo circa due setti- 
è dovreste conoscere abbastanza bene il 
AL. Un buon risultato, no?! 
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Una biblioteca per ottimizzare 


L 'ottimizzazione di cui si parla qui è quella 
cosiddetta combinatoria: si ha un insieme 
di variabili che devono essere determina¬ 
te in modo da soddisfare un insieme di condi¬ 
zioni rendendo nel contempo massima o mini¬ 
ma (ottima) una funzione di tali variabili. 

Per risolvere questi problemi si possono usa¬ 
re metodi analitici o metodi evolutivi. In questo 
manuale è descritta una biblioteca di program¬ 
mi relativi ai metodi evolutivi più classici. 

I programmi, corrvè giusto, sono modulari, 
costituiscono cioè unità facilmente aggregabili 
ed usabili in base a regole comuni. Il linguaggio 
utilizzato è il Fortran, ma tutti i programmi so¬ 
no facilmente convertibili in Basic, per un uso 
sui personal computer. 

Un breve sguardo al contenuto: troviamo al¬ 
goritmi per la programmazione lineare genera¬ 


ci. Baldissera, S. Ceri, A. Colorni 

Metodi di ottimizzazione e 
programmi di calcolo 

Milano: CLUP, 1981 


le, per quella a numeri interi, per la program¬ 
mazione dinamica, per i cammini sui grafi e per 
il PERT e il CPM, oltre a metodi di ricerca ge¬ 
nerali vincolati e non vincolati. 

Ogni libro che riporti biblioteche di program¬ 
mi è da considerare con estrema attenzione nel 
panorama editoriale italiano. Questo particola¬ 
re settore è stato infatti molto trascurato in pas¬ 
sato e solo recentemente sono stati pubblicati 
da alcuni editori testi di software. 


Elenco delle routine 


FIBON 

AUREO 

BISEC 

NABLA 

FLETCH 

PATTER 

ADRAS 

QUADR 

ZOUTEN 

SUMT 

SIMPL 

REVSIM 

TRASPO 

MAGYAR 

FORFUL 

TAGLIO 

BALAS 

INTEG 

DIN AM 

GRAFIL 

GRAFLI 

GRAFGE 

PERT 

CPM 


ricerca deirottimo di una funzione di una variabile in un intervallo con il metodo di Fibonacci 

ricerca dell’ottimo di una funzione di una variabile con il metodo della sezione aurea 

ricerca dell’ottimo di una funzione di una variabile con il metodo di bisezione 

ricerca dell’ottimo di una funzione di n variabili non lineare senza vincoli con il metodo del gradiente 

ricerca dell’ottimo di una funzione di n variabili non lineare senza vincoli con il metodo di Fletcher 

Powel 

ricerca dell’ottimo di una funzione di n variabili non lineare senza vincoli con il metodo pattern 
search 

ricerca dell’ottimo di una funzione di n variabili non lineare senza vincoli con il metodo della ricerca 
casuale adattativa 

ricerca dell’ottimo vincolato per un funzione quadratica di n variabili 

ricerca dell’ottimo vincolato per una funzione non lineare di n variabili con il metodo delle direzioni 
ammissibili 

ricerca dell’ottimo vincolato per una funzione non lineare di n variabili con il metodo della funzione 
di penalità 

programmazione lineare con l’algoritmo del simplesso 
algoritmo del simplesso revisionato 
problema del trasporto 

problema di assegnamento con metodo “ungherese” 
flusso massimo in una rete 

programmazione lineare a numeri interi con Talgoritmo frazionario di Gomory 

programmazione lineare a variabili binarie con l'algoritmo di enumerazione implicita di Balas 

programmazione lineare a numeri interi trasformato in variabili binarie 

programmazione dinamica 

cammini minimi su grafi 

cammini minimi su grafi 

cammini minimi su grafi 

risolve un reticolo di progetti collegati da attività 
risolve un reticolo di progetti collegati da attività 
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Una biblioteca per ottimizzare 


Per soddisfare gli utenti, questi 
libri devono tuttavia avere alcune 
particolari caratteristiche: i pro¬ 
grammi devono essere facilmente 
“portabili", cioè la particolare 
versione del linguaggio utilizzato 
deve essere facilmente modificabi¬ 
le: meglio di tutto non utilizzare 
nessuna particolare versione, ma 
un linguaggio estremamente sem¬ 
plificato, per esempio solo una de¬ 
cina di istruzioni Fortran o Basic. 

Una seconda caratteristica è la 
“modularità". Ogni pezzo, cioè ogni 
routine, deve essere completamen¬ 


te spiegata e commentata, deve es¬ 
sere chiaro quali sono gli input e 
quali gli output, quali le limitazioni 
e quali i controlli. 

In terzo luogo i programmi de¬ 
vono essere ben commentati e do¬ 
cumentati, con riferimenti precisi 
per una perfetta comprensione. 

Avendo verificato alcuni dei pro¬ 
grammi di questo libro, possiamo 
dire che le tre condizioni che ab¬ 
biamo citato sono rispettate. 

Le traduzioni dei programmi, 
per chi voglia implementarli su 
particolari calcolatori, sono parti¬ 


colarmente agevoli, i risultati sono 
sempre ottimi. Escluse poche ecce¬ 
zioni, questi algoritmi sono trasfe¬ 
ribili su personal computer, com¬ 
patibilmente con la capacità di me¬ 
moria a disposizione. 

Il libro ha 463 pagine e costa 
ventimila lire: ma se si considera 
che vi sono contenuti 24 program¬ 
mi, e che quindi il costo a pro¬ 
gramma è inferiore alle mille lire, 
se ne conclude che si tratta di un 
investimento che vale la pena di fa¬ 
re. 



Nel prossimo numero 
un eccezionale omaggio: 


Guida al software 
pubblicato 

sulle riviste italiane 


Un indispensabile fascicolo 
allegato alla rivista. 

Non perdete 
il prossimo numero! 
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TechnoClubè l’organizzazione di vendita 
per corrispondenza del libro tecnico 
(principalmente elettronica e informatica) 
nonché del software applicativo. 
TechnoClubè anche il tuo consulente, la 
guida sicura per orientarsi nel labirinto 
dell’editoria tecnica, lo strumento ed il 
servizio essenziale per il numero 
crescente di persone che hanno 

compreso l’importanza della tecnologia 
nel mondo odierno. 

Libri di base e didattici per imparare a 
capire; applicativi per realizzare e coltivare il 
proprio hobby; pratici per risolvere i M §| 

problemi dell’attività quotidiana; di elevata 
specializzazione per migliorare il proprio % 
background professionale o culturale. E altri 
ancora per soddisfare ogni esigenza. 
TechnoClub offre solo il meglio della 
produzione tecnica editoriale. Per questo ha 
scelto di collaborare con qualificati editori 
italiani e soprattutto si avvale di un’équipe di 
professionisti che esamina, seleziona e 
propone le opere più significative e 
compiete. 




TechnoClub ha instaurato rapporti di 
collaborazione con i più prestigiosi editori e 
software-house stranieri, per offrire 
tempestivamente, già da quest’anno, le opere 
più innovative in lingua originale e il 
software più interessante, appena disponibili. 
Tutti possono aderire al TechnoClub, 
assicurandosi un servizio garantito, 
professionale, veloce, unico nel suo genère. 
Esamina le modalità per diventare Socio e 
considera i numerosi vantaggi che ne 
derivano. 


Techno 


i migliori libri tecnici 
e il software a casa vostra. 


















Ì2 programmi 
con il TRS-80 










Cod. IHC01 


Cod. IHC02 


Cod. IHC03 


Cod. IHC04 


Cod. IHC05 


Cod. IHC06 


ASTRONOMA CON 
■_ CALCOLATORE L. 
TASCABILE 



Cod. IHC07 



INTRODUZIONE 
AL PERSONAL 
E BUSINESS 
COMPUTING 

Q 



mmm 



introduzione 
nte 
computer 


pfìOGRammflziooE 

D€UO 

ISO 


Programmazione 

. ^ 4 5 *'£ 

de.? r — * 


I 

USARE IL 
MICROPROCESSORE 



APPLICAZIONI 

DEL 

6502 



Cod. IFC04 


Cod. IFC05 


Cod. IGC01 


Cod. IFH02 


Cod. IFH04 


Cod. IFH07 Cod. IFH08 


■ P Ridotti 

Il Fortran 

TmNMI Mi 


^£2“ Enzo Vitate 

Aldo Hernandez 

Esercitazioni 
di Assembler 



Cod. IAK03 



Cod. IAK04 


tnantranco 

Romano 

Come 

programmare 
con il 
PL/1 



Anthony C Wrigh 

Come lare 
i diagrammi 
a blocchi 



Cod. IAK06 



MUSICA CON 
IL CALCOLATORE 




tnzo 

Vitate 

L’assembler 



Cod. IAK07 


'•sr 

* 8 » 


A. C, Wnghl 

Come 

programmare 
con l-RPO 

«•»’ 'ara ! "SfiTS 






Cod IAK08 



■ »•» Giorgio Serri 




Cod. IAK09 


resesi 

* MANUALE 
E STANDARD 
DEL LINGUAGGIO 



Cod. IHK02 


Cod. IHK03 


Cod. IHK04 Cod. IFK01 


Cod. IFK02 


Cod. IFK03 Cod. IFK04 


Associati subito. 

Hai almeno 8 buone ragioni per farlo. 


1. Nessun impegno di acquisto. 

I Soci non sono vincolati all’acquisto di 
un numero minimo di libri durante il pe¬ 
riodo di adesione al TechnoClub. Di 
conseguenza, scelta libera e nessuna 
imposizione, acquistando quello che si 
vuole, quando si vuole. 

2. Garanzia. 

I libri proposti dal TechnoClub costi¬ 
tuiscono sempre la versione originale e 
più aggiornata delle edizioni in com¬ 
mercio. 

II TechnoClub garantisce quindi il 
contenuto e la veste tipografica origina- 


3. Convenienza certa. 

Il prezzo delle opere offerte ai Soci del 
TechnoClub è inferiore del 10% circa 
rispetto al prezzo di copertina dell’edi¬ 
zione in commercio. Il risparmio è per¬ 
ciò assicurato. 


4. Consulenza professionale per una scel¬ 
ta sicura. 

La selezione delle opere proposte dal 
TechnoClub è effettuata da un gruppo 
di esperti dei singoli settori. 

Viene in tal modo offerto ai Soci un 
orientamento sicuro e garantita la mas¬ 
sima affidabilità nella scelta. 

5. Informazione costante. 

A tutti i soci del TechnoClub viene in¬ 
viata gratuitamente, ogni tre mesi, la ri¬ 
vista “TechnoClub Review”, che pre¬ 
senta l’assortimento, suddiviso per ar¬ 
gomento e settore specifico di interes¬ 
se, dei libri selezionati. Ogni libro viene 
illustrato con note esplicative che ne 
chiariscono il contenuto. 

Il Socio viene in tal modo facilitato nella 
scelta, secondo le sue specifiche esi¬ 
genze. 

6. Aggiornamento continuo. 

“TechnoClub Review” garantisce inol¬ 


tre l’aggiornamento costante sulle novi¬ 
tà editoriali. 

Considerando l’evoluzionecontinuadei 
settori trattati, i Soci dispongono così di 
uno strumento efficace per tenersi tem¬ 
pestivamente aggiornati. 

7. Un ulteriore e interessante vantaggio. 

I Soci ricevono anche la tessera Techno¬ 
Club, un documento strettamente per¬ 
sonale che dà diritto a sconti speciali 
sugli acquisti effettuati presso i negozi 
convenzionati, indicati sulla rivista 
“TechnoClub Review”. 

8. Praticità e comodità d’acquisto. 

Aderire al TechnoClub significa poter 
scegliere con tranquillità a casa propria 
consultando semplicemente la rivista 
“TechnoClub Review”. 

Garanzia di libri sempre disponibili, 
nessuna perdita di tempo in lunghe ri¬ 
cerche... e i libri arrivano puntualmente 
a domicilio. 

















































































































LESCENZE CON - v • 
L CALCOLATORE 1X1 
TASCABLE 


Cod. IHC08 



UQM blWBSs w mi tra » m, :> 


Cod. IHC09 


IMPARI AMO A PROGRAMMARE 

.BASIC 

con a PET CBM 



Cod. IFC01 



Incommoare 
«osi* 

>AI 

BASIC coma 


Cod. IFC02 


I GUIDA 
AL9NCUUR 



Cod. IFC03 



Cod. IFH11 



Cod. IFH12 


Cod. IDH02 


Cod. IAK01 


Cod. IAK02 



Giovai n ts 

Programma* »ooe 
elaboratori 
•WIjooci 



Cod. IAK10 


l>i>hiGttc< 

Principi «li pn£cnzruac 
dei compilaturì 


m 


Cod. IAK14 


NTNOOUnONE Al 

ASK. 





Cod. 1AK15 


Cod. IAK16 


PASCAL 

DM. MCFWPFOCLSSORE 
Al. GRANDE ELABORATORI 


G Gir» M Gn G Guida 


LISP 

LINGUAGGtO 
E METODOLOGIA » 
PROGRAMMAZIONE 


cMp 




Cod. IHK01 


noAjrw SCHAUM 

teoria e problemi 

PROGRAMMARE 

in FORTRAN 

5 tjps&tnz A t<£ 


375 

problemi risotti 




Cod. IFK05 


Cod. IDK01 


Cod. IDK02 


Cod. IDK03 


Cod. 11KOI 


...e puoi già 
scegliere 
tra questi 
titoli. 


32 PROGRAMMI CON IL PET 

T. Rugg e P. Feldman - pag. 240, 1981 

Trentadue programmi documentati, da eseguire 
su ogni tipi di PET. Ogni programma si compone 
di: scopo - come usarlo - esecuzione di prova (con 
fotografie schermo durante l’esecuzione) - lista 
del programma, semplici variazioni - routine prin¬ 
cipali - variabili principali - progetti suggeriti. 
Cod. IHC01 L. 8.500 


32 PROGRAMMI CON L’APPLE 

T. Rugg e P. Feldman - pag. 248, 1981 

Come sopra, per ogni tipo di Apple. 

Cod. IHC02 L. 8.500 


32 PROGRAMMI CON IL TRS-80 

T. Rugg e P. Feldman - pag. 238, 1981 

Come sopra, per il TRS-80. 

Cod. IHC03 L. 8.500 


IMPARATE IL BASIC CON IL PET 

H.D. Peckham - pag. 245, 1981 

Un corso di autoistruzione per chi desidera impa¬ 
rare il BASIC su un PET. Con esempi ed esercizi, 
partendo dai concetti più semplici, si arriva a pro¬ 
grammare il PET, sfruttando tutte le possibilità. 

Cod. IHC04 L. 8.500 


Come diventare 

sodo... 


Per diventare Socio è sufficiente scegliere tra 
queste due semplici possibilità: 

A) Versare l’importo di L. 8.000 quale quota di 
adesione. 

B) Effettuare un primo acquisto di libri, per un 
importo minimo di L. 30.000. 

In questo caso non si versa la quota di adesione. 
Per acquisti inferiori a L. 30.000 va aggiunta la 
quota di adesione di L. 8.000. 

In ambedue i casi, il Socio ha diritto a ricevere 
gratuitamente la rivista “TechnoClub Review” per 
ben due anni e la tessera personale con validità 
per lo stesso periodo. 

Il Socio che nel corso dei due anni di adesione 
effettuerà acquisti di libri per un importo di alme¬ 
no L. 60.000 avrà diritto al rinnovo automatico e 
gratuito dell’iscrizione al TechnoClub per un 
altro anno, conservando quindi tutti i vantaggi 
esclusivi. 

Associati 

Spedisci oggi stesso 
la cedola di adesione 








































































e puoi già 
scegliere 
tra questi 
titoli. 


INTERVISTA SUL PERSONAL COMPUTER - 
HARDWARE 

R. Didday - pag. 244, 1981 

Seicento domande e risposte sul mondo dei per¬ 
sonal computer. 

Questo volume, dedicato all’hardware, contiene 
un’introduzione, sotto forma di intervista, ai com¬ 
puter in generale e ai microprocessori in partico¬ 
lare. 

Cod. IHC05 L. 8.500 


INTERVISTA SUL PERSONAL COMPUTER - 
SOFTWARE 

R. Didday - pag. 200, 1981 

Centinaia di domande e risposte sul mondo dei 
personal computer. Questo secondo volume, de¬ 
dicato al software, contiene un’introduzione, sot¬ 
to forma di intervista, alla programmazione dei 
computer in generale e dei microprocessori in 
particolare. 

Cod. IHC06 L. 8.500 


ASTRONOMIA CON IL CALCOLATORE 
TASCABILE 

A. Jones - pag. 307, 1981 

Il libro indica come usare i moderni calcolatori 
tascabili per risolvere diversi problemi astronomi¬ 
ci in tempo minimo. Vengono introdotti metodi sia 
per logica algebrica che per logica polacca inver¬ 
sa. 

Appendici con 57 programmi documentati per 
calcolatori con e senza schedine magnetiche. 

Cod. IHC07 L. 12.000 


floppy disk, alle norme operative, al DOS, sino al 
linguaggio macchina. 

Cod. IFC01 L. 9.000 


IMPARIAMO A PROGRAMMARE 
IN BASIC CON IL VIC/CBM 

R. Bonelli - pag. 176, 1981 

Un manuale che inizia i principianti alla program¬ 
mazione in BASIC del VIC20, privilegiando l’a¬ 
spetto pratico, per imparare nel frattempo che 
cos’è un programma. 

Cod. IFC02 L. 9.900 


GUIDA AL SINCLAIR ZX81 - ZX80 
e NUOVA ROM 

R. Bonelli - pag. 264, 1982 

Vengono confrontati i tre calcolatori, che presen¬ 
tano notevoli differenze nel sistema di gestione e 
nel BASIC utilizzato, con considerazioni sulla loro 
potenzialità e approfondimenti su argomenti spe¬ 
cifici: trasformazione dei programmi da un calco¬ 
latore all’altro, sistema operativo, gestione dei file, 
linguaggio macchina. 

Cod. IFC03 L. 14.500 


DAI - MANUALE DEL MICRCCOMPUTER 

R. Bonelli C. Fiorentini - pag. 145, 1981 

La prima parte del manuale insegna l’utilizzo del 
calcolatore DAI, dai primi passi nella programma¬ 
zione BASIC allaspiegazionedellecaratteristiche 
di questo personal. La seconda parte contiene le 
specifiche sulfimplementazione del linguaggio 
BASIC sul calcolatore DAI. 

Cod. IFC04 L. 8.000 


INTRODUZIONE AL PERSONAL 
E BUSINESS COMPUTING 

R.Zaks - pag. 224, 1979 

Un testo didattico per principianti e per utenti che 
vogliono ampliare la loro conoscenza. 
Un’introduzione ai concetti, alle periferiche e alle 
tecniche fino ai metodi di valutazione per una 
scelta oculata. 

Cod. IFC05 L. 12.500 


JUNIOR COMPUTER - Voi. 1 

A. Nachtmann e G.H. Nachbar - pag. 178, 1981 

Junior Computer è il microelaboratore da autoco- 
struire su un unico circuito stampato. Il sistema 
base e questo libro sono l’occorrente per l’ap- 



APPLICAZIONI DEL 6502 

R. Zaks - pag. 214, 1981 

Tecniche e programmi per applicazioni tipiche 
del 6502. I programmi sono, con poche varianti, 
applicabili direttamente su qualunque microcom¬ 
puter su scheda basato sul 6502, quali il KYM, il 
SYM e l’AlM 65 e altri e consentono al lettore 
alcune realizzazioni pratiche. 

Cod. IFH08 L. 12.000 


INTRODUZIONE Al MICROCOMPUTER 
VOL. 0 IL LIBRO DEL PRINCIPIANTE 

A. Osborne - pag. 240, 1980 

Una visione complessiva su calcolatori ed elabo¬ 
ratori, con concetti generali e terminologia di ba¬ 
se per capire la tecnologia usata. Vengono illu¬ 
strate le singole parti del sistema, con le possibili¬ 
tà di espansione e componenti accessori. 

Cod. IFH11 L. 12.500 


INTRODUZIONE Al MICROCOMPUTER 
VOL. 1 IL LIBRO DEI CONCETTI 
FONDAMENTALI 

A. Osborne - pag. 321, 1980 

Il libro presenta la struttura logica fondamentale 
su cui sono basati i sistemi a microcomputer. 
Usando i concetti comuni a ogni sistema a micro- 
processore, viene illustrata l’architettura, la pro¬ 
grammazione, le possibilità e l’operatività di un 
microcomputer, con un set finale ipotetico di 
istruzioni per la simulazione delle possibili situa¬ 
zioni reali in cui si verrà a trovare con i vari micro- 
processori. 

Cod. IFH12 L. 14.400 


MICROPROCESSORI 8080 e BUS MMS-8 

a cura di L'EMMEC! - pag. 160, 1981 

Un testo di “consulenza” con caratteristiche di¬ 
dattiche per chi ha già una conoscenza di basesu 
circuiti logici, algebra di Boole e aritmetica bina¬ 
ria. Inteso come manuale commentato del micro- 
processore 8080 e del bus adottato presso il labo¬ 
ratorio di microcalcolatori del Politecnico di Mila¬ 
no. Si pone come riferimento per chi programma 
nel linguaggio Assembler 8080. 

Cod. IDH02 L. 5.400 


INTRODUZIONE ALL’APL E ALLE 
SUE APPLICAZIONI 

C. Camerata - pag. 266, 1980 

Il linguaggio di programmazione APL si basa su 
funzioni logico-matematiche di tipo generale. 
Adatto quindi ad applicazioni in vari settori, è sta¬ 
to implementato su più sistemi per tutti i livelli di 
elaboratori. Il libro si prefigge lo scopo di fornire 
agli utenti una conoscenza generale di questo 
linguaggio. 

Cod. IAK01 L. 10.800 


COME PROGRAMMARE CON 
IL FORTRAN 

P. Ridolfi/H. Coen - pag. 148, 1980 

Una guida allo studio del Fortran, concepita con 
intenti prevalentemente didattici, che pone in gra¬ 
do di scrivere e capire semplici programmi utiliz¬ 
zando questo “linguaggio simbolico”, particolar¬ 
mente adatto per agevolare gli scienziati e i tecnici 
aH’impiego dell’elaboratore elettronico. 

Cod. IAK02 L. 5.400 


IL FORTRAN - TEORIA ED ESERCIZI 

P. Ridolfi - pag. 168, 1981 

Viene descritto il complesso di regole che costi¬ 
tuiscono la grammatica del Fortran, con abbon¬ 
danti esemplificazioni pratiche, onde acquisire 
una graduale e completa padronanza del linguag¬ 
gio. Non si richiede al lettore una conoscenza 
approfondita degli elaboratori elettronici. 

Cod. IAK03 L. 4.950 











ESERCITAZIONI DI ASSEMBLER 

E. Vitale/A. Hernandez - pag. 134, 1981 

Una raccolta di 12 esercizi di crescente difficoltà, 
di ognuno dei quali viepe dato l’enunciato, il dia¬ 
gramma a blocchi e la soluzione; quest’ultima co¬ 
stituita dalle liste di compilazioni integrali per 
ogni problema enunciato. 

Cod. IAK04 L. 4.950 


COME PROGRAMMARE CON IL PL/1 

G. Romano - pag. 205, 1982 

Il volume presenta le caratteristiche più importan¬ 
ti del linguaggio PL/1, che può definirsi un ibrido 
tra i linguaggi per utenti scientifici e quelli per 
utenti commerciali. 

Con il ricorso ad esempi esplicativi, si pone come 
guida per lo studio autodidattico o anche guidato 
del PL/1. 

Cod. IAK05 L. 7.200 

COME FARE I DIAGRAMMI A BLOCCHI 

A.C. Wright - pag. 84, 1981 

Con un’abbondante documentazione di esempli¬ 
ficazioni, il libro si propone l’agevole assimilazio¬ 
ne della tecnica della diagrammazione a blocchi 
attraverso numerosi esercizi da svolgere per pro¬ 
prio conto. 

Cod. IAK06 L. 4.500 


L’ASSEMBLER 

E. Vitale - pag. 172, 1981 

L’opera, rivolta a chi abbia giàqualcheconoscen¬ 
za di programmazione, illustra il flessibile lin¬ 
guaggio Assembler, esponendo le varie istruzioni 
e spiegandone il significato, le modalità d'uso e i 
casi in cui possono rivelarsi utili o necessarie. 
Cod. IAK07 L. 6.750 


COME PROGRAMMARE CON l’RPG I - 
RPG II - RPG III 

A.C. Wright - pag. 266, 1981 

Nella prima parte del testo viene descritto l’RPG I: 
la sua logica, l’uso di unità periferiche facili da 
gestire, le maschere di stampa, ecc. Nella secon¬ 
da e terza parte vengono descritte le istruzioni 
aggiuntesi nelle più recenti versioni di questo lin¬ 
guaggio: l’RPG II e il compilatore RPG III. 

Cod. IAK08 L. 10.800 


COME PROGRAMMARE CON IL COBOL 

G. Sarri - pag. 129, 1982 

L’opera espone le regole da seguire per redigere 
un programma in Cobol, con numerose esemplifi¬ 
cazioni e si propone di porre il lettore in grado di 
scrivere programmi in Cobol e di capirli. 

Cod. IAK09 L. 4.500 


PROGRAMMAZIONE DEGLI 
ELABORATORI ELETTRONICI 

G. Bertoldi - pag. 286, 1L82 

La prima parte illustra i principi generali dell’ela¬ 
borazione automatica dei dati, le caratteristiche e 
il funzionamento degli elaboratori e i problemi di 
programmazione. La seconda parte è dedicata 
all'analisi (studio e definizione dei problemi da 
svolgere); la terza parte illustra la tecnica di stesu¬ 
ra dei diagrammi a blocchi. Segue capitolo sul 
Cobol e uno sui sistemi operativi, più glossario in 
appendice. 

Cod. IAK10 L. 7.200 


PRINCIPI DI PROGETTAZIONE 
DEI COMPILATORI 

D. Gries - pag. 566, 1980 


IL BASIC - TEORIA ED ESERCIZI 

E. Spoletini - pag. 298, 5 a ediz. 1982 

Il volume, rivolto anche ai “non addetti ai lavori”, 
presenta le caratteristiche del linguaggio BASIC. 
L’impostazione didattica si prefigge di far appren¬ 
dere agevolmente il linguaggio per gradi. Quasi 
tutti gli esercizi, differenziati come argomenti e 
grado di difficoltà, sono corredati da diagrammi a 
blocchi. 

Cod. IAK15 L. 10.800 


IL COBOL - TEORIA ED ESERCIZI 

E. Spoletini - pag. 396, 1982 

La prima parte dell’opera espone gli elementi per 
scrivere un programma di media difficoltà; nella 
seconda parte vengono trattati problemi relativi 
alle tabelle e ai flussi organizzati in modo non 
sequenziale. Ogni capitolo è corredato di nume¬ 
rosi esempi ed esercizi. 

Cod. IAK16 L. 13.500 


IL PROGETTO DEI MICROCOMPUTER: 
SOFTWARE 

C.A. Ogdin - pag. 247, 1981 

Vengono esposte tecniche aggiornate, tra cui la 
programmazione strutturata, con diversi esempi 
di progettazione software che utilizza una nota¬ 
zione simile al Pascal. Viene dato risalto sia al 
progetto di strutture dati che di procedure struttu¬ 
rate. 

Cod. IHK01 L. 12.150 


PASCAL 

P.M. Chirlian - pag. 200, 1981 

Questo libro, inteso come manuale di autoistru¬ 
zione o libro di testo in un corso, per chi non ha 
esperienza di calcolatori o programmazione, pre¬ 
senta il linguaggio Pascal che permette la “pro¬ 
grammazione strutturata”. Ogni capitolo si con¬ 
clude con una serie di esercizi. 

Cod. IHK02 L. 7.650 


MICROSOFT BASIC 

K. Knecht - pag. 150, 1981 

Un manuale di introduzione al Microsoft BASIC, 
sorto dall’esigenza di standardizzazione del BA¬ 
SIC per l’implementazione su una varietà di per¬ 
sonal computer. Viene dato rilievo alle diverse 
caratteristiche e forme che il Microsoft Basic può 
presentare e viene dato particolare risalto alla ver¬ 
sione implementata sul TRS-80. 

Cod. IHK03 L. 5.850 


MUSICA CON IL CALCOLATORE 

R.C. Zaripov - pag. 169, 1979 

Una monografia dedicata al problema della com¬ 
posizione di musica con l’aiuto di calcoli 
matematico-probabilistici, con rassegna degli 
studi svolti nel mondo sull’aiuto dei computer per 
la composizione e l’analisi della musica, oltre alle 
regole trovate dall’autore per realizzare un model¬ 
lo che simula l’attività di un compositore. 

Cod. IHK04 L. 6.750 


CP/M CON MP/M 

R. Zaks - pag. 309, 1982 

Il libro si prefigge di rendere agevole l’uso del 
CP/M (nelle versioni CP/M 1.4 - CP/M 2.2 - siste¬ 
ma operativo multiutente MP/M); il sistema opera¬ 
tivo progettato per semplificare l’utilizzo di un mi¬ 
crocomputer, disponibile su quasi tutti gli elabo¬ 
ratori basati su microprocessore 8080 e Z80 e su 
certi sistemi utilizzanti il 6502. 

Cod. IFK01 L. 19.800 


consentono di programmare in Assembler, con 
numerosi esempi pratici. Come Assembler esi¬ 
stente è stato scelto quello dello Z80. 

Cod. IFK02 L. 9.000 


IMPARIAMO IL PASCAL 

F. Waldner - pag. 162, 1981 

Un libro di divulgazione, incentrato sull’autoap- 
prendimento del linguaggio Pascal, con consigli, 
problemi. 

Un testo da "usare” e non da “leggere”, secondo 
l’intento dichiarato dall’autore. 

Cod. IFK03 L. 9.000 


PASCAL-MANUALE E STANDARD 
DEL LINGUAGGIO 

K. Jensen/N. Wirth - pag. 179, 1981 

La prima parte è costituita dal manuale di appren¬ 
dimento delle regole e dei principi del Pascal (ma¬ 
nuale utente); la seconda, dalla descrizione dello 
standard del linguaggio. Serie di tavole contenen¬ 
ti la definizione del Pascal attraverso il BNF e 
anche tramite le carte sintattiche. 

Cod. IFK04 L. 9.000 


INTRODUZIONE AL BASIC 

P. Le Beux - pag. 314, 1981 

Un corso rivolto ai principianti, che illustra tutti gli 
aspetti del BASIC su differenti sistemi. Con nume¬ 
rosi esempi, il lettore può verificare con immedia¬ 
tezza il reale apprendimento raggiunto. 

Cod. IFK05 L. 16.500 


METODI DI OTTIMIZZAZIONE 
E PROGRAMMI DI CALCOLO 

C. Baldissera/S. Ceri/A. Colorni - pag. 468, 1981 

Vengono esposte le caratteristiche di un gruppo 
di programmi (attualmente esistente presso il 
Centro di Teoria dei sistemi del CNR), chesi com¬ 
pone di alcuni classici algoritmi strutturati per 
privilegiare la semplicità d’uso, l’uniformità e mo¬ 
dularità fra i vari programmi. Il linguaggio usato è 
il Fortran. 

Cod. IDK01 L. 18.000 


PASCAL - DAL MICROPROCESSORE AL GRAN¬ 
DE ELABORATORE 

G. Cioni/S. Crespi Reghizzi/M. -Moscarini 
pag. 194, 1981 

Il testo, rivolto a chi già conosce la programma¬ 
zione del calcolatore, descrive nella prima parte il 
linguaggio Pascal standard nelle sue varie parti, 
con 40 esempi di programmi, collaudati sul calco¬ 
latore. 

Nella seconda parte, dopo un cenno alle tecniche 
di compilazione, si presentano leschedetecniche 
di alcune versioni del Pascal disponibili per elabo¬ 
ratori di vasta diffusione. 

Cod. IDK02 L. 7.200 


LISP - LINGUAGGIO E METODOLOGIA DI PRO¬ 
GRAMMAZIONE 

G. Gini, M. Gini, G. Guida - pag. 204, 1981 

Con molti esempi di diversa complessità nel testo 
vengono illustrati tutti gli aspetti del linguaggio 
LISP, oggi diffuso anche su mini e personal com¬ 
puter, utilizzato per progettare sistemi di intelli¬ 
genza artificiale e per la soluzione di problemi di 
elaborazione non numerica. 

Cod. IDK03 L. 8.100 


PROGRAMMARE IN FORTRAN 
375 PROBLEMI RISOLTI 

S. Lipschutz/A. Poe - pag. 314, 1980 

Lo scopo del libro è di presentare il linguaggio 
Fortran e di insegnare a risolvere dei problemi con 
esso. Oltre alla sintassi, viene insegnato come 
scrivere dei programmi Fortran con chiarezza, in¬ 
sistendo sia sulle tecniche che sulle buone abitu¬ 
dini di programmazione. Vengono esaminati i 
principi più importanti sia del Fortran standard 
che del Fortran strutturato. 

Cod. IIK01 L. 10.800 


Il volume descrive le tecniche utilizzabili nella 
scrittura di compilatori per linguaggi ad alto livel¬ 
lo, quali il Fortran ed il PL/1, illustrando teoria ed 
aspetti pratici connessi con tale scrittura. 

Cod. IAK14 L. 26.100 


PROGRAMMARE IN ASSEMBLER 

A. Pinaud - pag. 153, 1982 

Il libro, destinato in particolare a chi già ha una 
buona conoscenza di un linguaggio evoluto molto 
semplice come il BASIC, fornisce i rudimenti che 





















Scegli tra centoventisette 
combinazioni d’abbonamento. 

Tutte vantaggiose. 



10 numeri 

L. 30.000 


anziché L. 35.000 

estero L. 48.000 





\ 



ELETTRONICA OGGI 


11 numeri 

L. 31.000 


anziché L. 38.500 

estero L. 49.600 



11 numeri 

L. 26.500 


anziché L. 33.000 

estero L. 42.400 



anziché L. 44.000 

estero L. 56.000 



anziché L. 8.000 

estero L. 10.400 



11 numeri 

L. 26.000 

anziché L. 33.000 

estero L. 42.000 



anziché L. 30.000 

estero L. 38.400 



Come calcolare da soli le altre 120 combinazioni di abbonamento... 


abbonamento a 2 riviste. Prezzo Scontato 1 ‘ rivista -f Prezzo Scontato 2 a rivista - L. 2.000 
abbonamento a 3 riviste. P S. i a + P S 2' -f P S 3 a - L 4 000 

abbonamento a 4 riviste. P.S. l a -f P.S. 2 a -f P.S. 3“ + P.S. 4' - L. 8.000 

abbonamento a 5 riviste. P.S. -f P.S. 2‘ + P.S. 3 a -f P.S. 4 a + P.S. 5 a - L. 11.500 

abbonamento a 6 riviste. P.S. l a + P.S. 2‘ -f P.S. 3 a + P.S. 4 a -b P.S. 5 a + P.S.*6'- L. 15.000 

abbonamento a tutte e 7 le riviste L. 149.000 anziché L. 226.500 estero L. 239.000 

Per l’estero l’importo risultante va aumentato del 60% (moltiplicare 1,6) 

Esempio: Informatica Oggi + Personal Software — Italia 26.500 + 30.000 —2.000 = 54.500 — 
Estero 54.500 x 1,6 = 87.200 

Attenzione: per i versamenti utilizzate il C.C.p. n° 11666203 intestato a Gruppo Editoriale 
Jackson - Milano. Oppure inviate un assegno al nostro ufficio abbonamenti. 



GRUPPO EDITORIALE JACKSON 

“ SERVIZIO ABBONAMENTI 


































*» $ 9 » » « 9 


* * # • 




»«««•• 


9 

» 

* 

« 

« 

» 


9 

9 

« 

$ 

« 

* 

« 


« 

% 

« 

« 


« 

9 


« 

« 

« 


9 

% 

» 

a 

# 

a 

*' 

9 


a 

a 

a 


a 

« 

« 


Gioco del 15 


Chi è stato ragazzo nei primi anni sessanta si ricorde¬ 
rà senz’altro di questo gioco, che in quegli anni ebbe 
una diffusione paragonabile a quella che il cubo di Ru- 
bik ha ai giorni nostri. 

Come è noto il gioco, che si esegue su di una scac¬ 
chiera 4x4, consiste nel riordinare su quattro file i nu¬ 
meri dall’uno al quindici, usufruendo per gli spostamenti 


dell’unica casella libera sulla scacchiera. Si può giocare 
come “solitario” oppure si possono organizzare sfide 
tra più giocatori, usufruendo del controllo del calcolato¬ 
re che, mossa per mossa, aggiornerà i vari “record”. 

Qui a fianco trovate la versione PET/CBM valida per 
tutti i modelli a 40 colonne. Più avanti ci sono le versioni 
per il TRS-80 mod. I e per l’Apple II. ■ 


c* 

Commodore 





• 

IO REM **##*#**#*##*.****:M#*****# ************** 

510 

X= 2 +J* 4 : GOSUB 800 : PRINTTAB( 7 + 1 * 5 >" "; 

20 REM * 


* 

520 

GOTO 170 


30 REM * GIOCO DEL 15 


* 

530 

FLAG =0 


40 REM * VERSIONE PET/CBM 3032 E 4 

032 

* 

540 

IF 11 < 1 OR II >4 OR JJ< 1 OR J J >4 

GOTO 570 

50 REM * 


si/ 

* 

550 

IF N < 11 ,JJ )<>0 GOTO 570 


60 REM * PERSONAL SOFTWARE 


* 

560 

FLAG =1 


70 REM * 


* 

570 

RETURN 


80 REM **************************************** 

580 

FOR 1=1 TO 4 : FOR J =1 TO 4 


90 REM 



590 

IF N(I,J )=0 GOTO 630 


100 

DIM N < 4,4 ) 



600 

X= 2 +J* 4 : GOSUB 800 


1 10 

FOR NUM =1 TO 15 



610 

PRINTTAB ( 3+1 * 5 —LEN (STR* (N ( I, ,7 ) > 

> +1 ) ; 

120 

I = I NT <RND(TI)* 4 + 1 ) : J = INT< RND < TI> 

* 4+1 » 


620 

PRINT N(I,J) 


130 

IF N(I,J )<>0 GOTO 120 



630 

NEXT: PRINT: NEXT 


140 

N ( I, J ) =NUM : NE X f NIJM 



640 

RETURN 


150 

FRINT CHR$( 44 ) 



650 

PRINT CHR$( 147 ) 


160 

GOSUB 650 



660 

PRINTTAB( 9 )"G I 0 C 0 D E L 

1 5 " 

170 

GQSUB 580 



670 

FOR RIGA =4 TO 20 STEP 4 


180 

X = 22 : GOSUB 800 



680 

PRINT CHR$( 18 ); 


190 

FOR Y =1 TO 40 : PRINT" "; : NEXI Y 



690 

X=RIGA: GOSUB 800 : PRINTTAB( 10 ) 

■ 

fi 

200 

X= 23 : GOSUB 800 



700 

FOR H =10 TO 30 : PRINT" ";: NEXT 

H 

210 

FOR Y =1 TO 25 : PRINT" "; : NEXT Y 



710 

PRINT: PRINT: NEXT RIGA: PRINT 


220 . 

X = 23 : GOSUB 800 



720 

PRINT CHR*( 18 >; 


230 

INPUT"BATTI LA TUA MOSSA";M* 



730 

FOR L =5 TO 19 : X=L: GOSUB 800 


240 

IF LÈN(M $)<1 GOTO 270 



740 

PRINTTAB( 10 )" "; 


250 

IF ASC(M $)=70 THEN END 



750 

PRINTTAB( 15 )" " 5 TAB( 20 )" "; 


260 

M=VAL(M$): IF M >0 AND M <16 GOTO 3 

00 


760 

PRINTTAB( 25 )" ";TAB( 30 )" "; 


270 

X= 22 : GOSUB 800 



770 

NEXT L: PRINT: PRINTTAB( 1 ) 


280 

FRINT"ERRORE. USA NUMERI DA 1 A 1 

cr n 

vJ - 


780 

X = 23 : GOSUB 800 


290 

GOTO 200 



790 

PRINT"BATTI ? F J PERFINIRE";: R 

ET URN 

300 

X= 23 : GOSUB 800 



800 

PRINT CHR*( 19 ); 


310 

FOR 1=1 TO 4 : FOR J =1 TO 4 



810 

FOR Y =1 TO X-l 


320 

IF N(I,J)=M GOTO 340 



820 

PRINT CHR*< 17 ); 


330 

NE X-T : NEXT 



830 

NEXT Y: RETURN 


340 

11 = 1 + 1 : JJ = J : GOSUB 530 






350 

IF FLAG =1 GOTO 460 






360 

11 = 1 - 1 : JJ=, 7 : GOSUB 530 






370 

IF FLAG =1 GOTO 460 




• 


380 

II = Is J J =J + 1 : GOSUB 530 






390 

IF FLAG =1 GOTO 460 






400 

I I = I : JJ=J- 1 : GOSUB 530 






410 

IF FLAG =1 GOTO 460 






420 

X= 22 : GOSUB 800 






430 

FOR Y =1 TO 32 : PRINT" ";: NEXT Y 






440 

X= 22 : GOSUB 800 : FRINT"MOSSA NON 

PERMESSA 

il 




450 

GOTO 200 






460 

N(I,J)= 0 : N ( I I „ J J )=M 






470 

X= 22 : GOSUB 800 






480 

MOSSE =MOSSE +1 






490 

X= 4 : GOSUB 800 : PRINTTAB< 34 )"MOSS 

E" 





500 

PRINTTAB( 35 )MOSSE 
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cipple H 


1 0 REM * * * * * * * * * * * * * * * * * x * * * * * * * * * * * * * * ; # * * * * * * * 


20 REM * * 
30 REM * GIOCO DEL 15 * 
40 REM * VERSIONE APPLE II * 
50 REM # ^ 

60 REM * PERSONAL SOFTWARE * 
7U REM % jf 


80 REM *********** ************************ ****** 
90 REM 

100 DIM N < 4,4 > 

110 FOR NUM=1 TO 15 

120 I=INT(RND(1>*4+1>: J=INT<RND(1)*4+1) 

130 IF N < I, J ><>0 GOTO 120 
140 N(I,J)=NUM: NEXT NUM 
150 TEXT: HOME 
160 GOSUB 500 
170 GOSUB 450 


190 VTAB 23: INPUT"BATTI LA TUA MOSSA ";M$ 
200 IF LEN'MSU ] GOTO 23'") 

210 IF ASC(M*)=69 THEM END 

220 M=VAL ' M* > : IF M O AND M 16 GOTO 25') 


230 VTAB 22= PRINT"ERRORE. USA 1 NUMERI DA 1 A 


240 

GOTO 190 





250 

VTAB 23: CALI. 

-868 




260 

FOR 1=1 rn 4: 

FOR 2=1 TO 

4 



270 

IF N ( I , 2 7 =M G 

OTO 280: NE x T ,) 

, T 


280 

11=1+1: 22=2: 

GOSUB 4'- >0 : 

IF 

F L. AG - 1 

GOTO 23'.i 

290 

11 = 1-1: ,7,7=, 7: 

GOSUB 400: 

IF 

FI. AG- i 

GOTO 77s » 

300 

11 = 3:: 22=2+1 : 

GOSUB 400: 

1F 

FI. AG= 1 

goto 

310 

I I = ] : 2 J = ,7 — 1 : 

GOSUB 400: 

IF 

FI AG = 1 

GOTO >30 


320 VTAB 22: 


P R IN T " M 0 S S A N 0 N P E R MESE A 
GOTO 190 


330 N < I , ,7 >=0 : N(II, ,7,3 )=M 
340 VTAB 22: CALL-868 
350 MOSSE=MOSSE+1 

360 VTAB 4 : H f AB 24 : PRIN T"MOSSE" 

370 VTAB 5: HTAB 76- PR1 NT MOSSE 

380 VTAB 2+2#4: HTAB 7+1*5: PRIMI" "; 

390 GOTO 170 
400 FLAG=0 

410 IF II<1 OR l ì 4 OR ,7,3 J OR ,7 2 4 GOTO 440 
420 IF N ( II,JJ ) O GOTO 4 40 
430 FLAGRI 
440 RETURN 

450 FOR 1 = 1 TO 4: FOR ,7 = 1 TO 4 

460 IF N <I,J)=0 GOTO 490 

470 HTAB 6 + I *5 — ( N ( I , ,7 > : 9 ) : V T AB 2+2 * 4 

480 PRINT N(I,J > 

490 NEXT ,7,1: RETURN 

500 VTAB 1: HTAB 9; PRINT"P I O C 0 0 F i 15" 

510 INVERSE: FOR LINE=4 TO 20 STEP 4 ■ 

520 VTAB LINE: HTAB 10 

530 FOR H = 10 TO 30: PRIIMT" " ; : NEX T H,l INE 
540 FOR L=5 TO 19: VTAB L: HTAB 10: PRINT" 


550 

HTAB 

15: 

PRINT" 

" a . 

<1 u 

HTAB 

20 : 

PRIMI" "; 

560 

HTAB 

25: 

PRINT" 

" . . 

1 ■ 

HTAB 

30 : 

PRINT" "; 

570 

NEXT 

L: 

NORMAL. : 

HTAB 

1 



580 

VTAB 

24: 

PRI NT" 

BATT I 

7 F ' 

PER 

FINIRE.";: RETURN 
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DATA PROCESSING HOUSE 


IL COMPUTER SHOP 

DI MODENA 


Via Giardini, 464 (Direzionale 70) Tel. (059) 340407 - 41100 Modena 


ANALISI E PROGRAMMAZIONE - CONSULENZE EDP 
PERSONAL COMPUTER - ELABORATORI ELETTRONICI 
SISTEMI GESTIONALI - SISTEMI WORD PROCESSING 
SISTEMI “CHIAVI IN MANO" - CORSI DI PROGRAMMAZIONE 




ASSISTENZA FINANZIARIA 
FACILITAZIONI PAGAMENTO 

LEASING 


Mi 


f: commodori CBM 




Model 803C 


•esss 2 * 




V 


ilii'll 






I ICS 


[appiè computer 


Commodore 


INOLTRE PUOI TROVARE: Honeywell- Centronics - Epson - Sinclair - Texas Instruments - Terminali Video 


Alpha Micro System - Corvus - Plotters, etc. 







L’INFORMATICA IN LIGURIA 


L’informatica è un settore giovane e quando si è giovani è facile sbagliare. 

Affidandovi ad un centro specializzato dove i prodotti sono selezionati e l’assistenza è garantita da personale 
esperto, potrete risolvere i vostri problemi con le soluzioni più moderne e collaudate. 

Nei nostri centri dimostrativi scoprireteche l’utilizzo di un computerò più facile di quanto pensiate, se i programmi 
rispondono alle vostre esigenze: 


GESTIONE ORDINI CLIENTI 
GESTIONE ORDINI FORNITORI 
BOLLA DI ACCOMPAGNAMENTO 
FATTURAZIONE RIEPILOGATIVA 
FATTURAZIONE IMMEDIATA 
PORTAFOGLIO EFFETTI 
ESTRATTO CONTO 
CONTABILITA’ GENERALE-IVA 
CONTABILITA’ CLIENTI 
CONTABILITA’ FORNITORI 


GESTIONE DEL PERSONALE 
PAGHE PER EDILIZIA 
CONTABILITA’ SEMPLIFICATA 
GESTIONE MAGAZZINO 
PARCELLAZIONE PRESTAZIONI 
DICHIARAZIONE REDDITI-740 
CONTABILITA’ FINANZIARIA 
GESTIONE ENTI PUBBLICI 
PAGHE PER SCUOLE 


INGEGNERIA CIVILE E STRUTTURALE 
COMPUTI METRICI LEGGE 373 
GESTIONE RISTORANTI-ALBERGHI 
GESTIONE CARTELLE CLINICHE 
AMMINISTRAZIONE CONDOMINI 
AGENZIA IMMOBILIARI-ASSI CU RAZIONI 
PREVENTIVAZIONE CANTIERISTICA 
E MOLTI ALTRI PROGRAMMI 
SETTORI PERSONALIZZABILI 


VIENI A SCOPRIRE CHE DIFFERENZA C’È 



ASSOCIATO 



GENOVA - C.so Gastaldi, 77R - Tel. 010/300.797 
LAVAGNA - C.so Buenos Aires, 125 - Tel. 0185/314.142 


computer city 


L’INFORMATICA SU CUI PUOI CONTARE. 
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Radio/back! 


IO REM *********** ** ** * * * ** ** * * * ** * * * ** ** **** * * * 
20 REM * * 

30 REM * GIOCO DEL 15 * 

40 REM * VERSIONE TRS-80 MOD„ I * 

50 REM * * 

60 REM * PERSONAL SOFTWARE * 

70 REM * * 

80 REM ******** * * * * * * * * * * ******** * * * * * * *. * * * * * * * * 
90 REM 

100 CLEAR 200: DIM N'4,4) 

110 FOR NUM”1 TO 15 
12 0 I = R N D < 4 ) : J = R N D < 4 ) 

1 30 IF N •: I, J > < >0 GOTO 120 

1 4 0 N < I , J > = NIJ M : N E X T N U M 

150 CLS 

160 GOSUB 490 

170 GOSUB 440 

1 SO PRI NT0832,STRING*(63, " ”> 

19 0 P R J. N T5>89 6," B A X T 1 !.. A T U A M 0 S S A"; 5 t N P U1 M '* 

200 IF LEN<M*K1. GOTO 230 
210 IF MS=”F” THEN END 

220 M=VAL<M$>: IF M >0 AND M<16 GOTO 250 
230 PR INT8832, STRI NG* < 63, " " ) s 

PRINT0832,"ERRORE. USA I NUMERI DA 1 A 15.” 
240 GOTO 190 

250 FOR 1 = 1 TO 4: FOR .J=J TO 4 
260 IF N(I,J)=M GOTO 280 
270 NEXT J,I 

280 11=1+1: JJ=J: GOSUB 390: IF FLAGRI GOTO 33n 


290 11 = 1-1: JJ=J: GOSUB 390: IF FL.AG=1 GOTO 330 

300 11 = 1: JJ = J +• 1 : GOSUB 390: IF FLAG= 1 GOTO ’3ó 

310 11 = 1: JJ=J — 1 : GOSUB 390: [F FLAG=1 GOTO 330 

320 PRINT0832,STRINGA(63," ">: 

FRINT0832, ”M0SSA N0N PERMESSA. "• GO T 0 19<, 

330 N < I , J ) =0: N (II, ,J J ) =M 

340 M0SSE=M0SSE+1 

350 PR I NT.5242, ” MOSSE ” ; 

360 PRI NT0307,M0SSE; 

370 X=128*(J + 1)+18+1*5: PRI NTOX, ” ” ; 

380 GOTO 170 

390 FLAG=0 

400 IF II<1 OR II 4 OR JJ:1 OR JJ4 GOTO 4TO 
410 IF N(1I,JJ > O GOTO 430 
420 FI_AG= 1 
430 RETURN 

440 FOR 1=1 TO 4: FOR J=1 TO 4 

450 IF N < I,J)=0 GOTO 470 

460 X = 128*(J +1)+18+I*5+(N(I,J ) 9> ; 

F'R I NTo)X , N < I , J ) ; 

470 NEXT J,I 
480 RETURN 

490 CLS: PRINT-5960, "BATTI ‘ F ' PER FINIRE”; 

500 PRINT.584, ”G I O C O D E L 1 5” 

510 FOR RIGA=1O TO 34 STEP 6: FOR COL=42 !0 83 
520 SET (COL, RIGA) : NEXT C0L., R IGA 
530 FOR COL=42 TO 82 STEP 10: FOR RJGA=10 TO 34 
540 SET <COL,RIGA) : SE T <COL + 1,RIGA) : NEXT RIGA,COL 
550 RETURN 
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Una nuova generazione 

di italiani 



GPS4 è il nome della nuova famiglia di elaboratori Gene¬ 
ral Processor: elaboratori perfetti, nati dalla esperienza 
della prima azienda italiana costruttrice di piccoli com¬ 
puter. 

I GPS4 sono tutti italiani: italiani nel progetto, italiani 
nella costruzione, italiani nel design, elegante ed essen¬ 
ziale come quello di un’auto sportiva di gran classe. Han¬ 
no una tastiera italiana, separata, davanti alla quale ogni 
dattilografa si trova subito a suo agio perché la Z, la W e 
la M sono al loro posto e perché, come in una calcolatri¬ 
ce, ci sono i tasti doppio e triplo zero. 

E sono italiani anche nella assistenza. 

Con i loro 128K RAM minimi (estendibili a oltre 200), 
due terminali collegabili e con una ineguagliabile biblio¬ 
teca di software di base ed applicativo, i GPS4 rappre¬ 
sentano lo “status of thè art” della moderna miniinfor¬ 


matica, per la quale rappresentano e rappresenteranno 
negli anni futuri un importante punto di riferimento. 
Una raccomandazione: non fatevi influenzare dallo sty- 
ling: i GPS4 non sono semplicemente i più belli; sono 
semplicemente i migliori. 

Alcuni OEM General Processor 

Milano: PGE: 02/28.22.225 - Como e Varese: SIAEMME: 
0331/67.96.75 - Alessandria: CID: 0131/34.44.18 - Modena: Data: 
059/68.80.90 - Bologna: Computer Systems: 051/79.94.21 - Pistoia: 
CEIA: 0572/51.611 - Firenze: R2 Data: 055/41.11.42 - Firenze: Aeffe: 
055/75.27.89 - Prato: Gerva: 0574/59.26.94 - S. Croce/Arno (PI): Dai- 
nelli: 0571/31.805 -Arezzo: Tecem: 0575/28.848 - Arezzo: Etruria Si¬ 
stemi: 0575/35.59.71 -Livorno: CED05: 0586/25.395 - Siena: Tecno¬ 
computer: 0577/74.03.34 -Roma: General Computer: 06/52.84.032 - 
Latina: Contax: 0771/22.503 -Napoli: CompuSystems: 081/46.36.02 - 
Napoli: Tecnodata: 081/24.21.66 - Calabria: Tripodi: 0984/99.21.42 - 
Spagna (Madrid)/Vimesa: 690.20.29 
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Questo gioco per due persone si spiega da sé: è il 
classico gioco del bersaglio con le freccette. Ogni gio¬ 
catore ne ha a disposizione tre alla volta; l’obiettivo è di 


raggiungere 210 punti prima dell’avversario. 

Qui a fianco vi è la versione per il PET/CBM. Più 
avanti trovate quella per il TRS-80. ■ 
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Commodore 


io 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
20 
130 
540 
IO 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 


********** ****************************** 


VERSIONE 


BERSAGL 1 C) 
PET/CBM 3032 E 


4032 


* 

* 

* 

* 

* 

* 

**************************************** 


PE RSONAL SOF Ha»ARE 


N2*(20) ,A* *20) 


INPUT”NOME 
PRINT CHR* 
GOSUB 
31=0: 

GOSUB 
FOR X = 


N= 1 


T ,9 


THEN GOSUB 410 


32 


NEXT: 


NE X I 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

DIM NI % (20) 

F-230: D=5 
PRINT 13HF:1> (147) 

C 1 =98 : C2=214 : C3=? 127 : C4= 102 : C5= 160 
PRINTTAB(15)”BERSAGLIO”: PR1 NT : PRINI 
INPUT”NOME DEL PRIMO GIOCATOREN1 * 

DEL SECONDO GIOCATORE";N2 % 
147) 

280 
£2=0 
690 
O TO 

POPE 33567+X,30 
IF F’EEK (151) =59 
POPE 33567+X,32 
NEXT 

GOTO 210 
END 

FOR H= 1 TO 39; FOF: P = 1 TG 
POPE(32763+H+160+<P-1)*40) 

FOR VL=1 TO 3 

FOR F=10 TO 13: POPE(32768+F-1+VL*40) ,C2 
POPE (32768+F +1 4+VL.*40) ,C2: NEXT 
FOR F=^4 TO 16 : POPE ( 32768+F -1+VL. * 40 ) 
POPE(32768+ F + 7+VL* 40) ,C3: NE XT 
FOR F=17 TO 18: POPE(32768+F-1+VL *40) 
POPE(32768+F+2+VL*40),C4: NEXT 
POPE(32768+18+VL*40), C5 
NEXT VL 

FOR H=1 TO 39: POPE(32768+H) ,C1 : NEXT 
RETURN 

POPE(32768+X-1+800),32: Y=20 
IF Y=0 GOTO 470. 

POPE(32768+X-1+(Y—1)*40),30 
IF PEEP(32768+X-1+(Y-2)*40)<>32 GOTO 4 
POPE <32768+X-1+(Y-l)*40) ,32 
Y=Y—1 : GOTO 420 
N=N+ 1 

GOSUB 1010 
IF TIJRN= 1 GOTO 530 
IF TURN=0 GOTO 610 

x=o 

RETURN 

IF N=4 THEN TURN=0 
GOSUB 790 
S2=S2+HIT 

IF S2>210 THEN S2=S2-HIT 
GOSUB 690 

IF N=4 THEN GOSUB 280 


* 

* 

* 

* 


j/ 

* 


r 


C4 


o 


590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
101 o 
1020 
1030 
1040 
1050 


IF N=4 THEN N=1 
GOTO 510 

IF N=4 THEN TURN=1 
GOSUB 790 
S1=S1+HIT 

IF SI>210 THEN S1=S1-HIT 
GOSUB 690 

IF N=4 THEN GOSUB 280 
IF N=4 THEN N=1 
GOTO 510 
Ul=22 : GOSUB 1020 

PRINT N1V = ";S1 TAB(20)N2$" = ”;S2 
IF SI=210 OR S2=210 THEN GOSUB 910 
W=24: GOSUB 1020 

FOR 1=1 TO 39: PRINT " NEXT I 

W=24: GOSUB 1020 
PRINT TAB(10)"TOCCA A 
IF TLIRN=0 THEN PRINT NI* 

IF TLIRN=1 THEN PRINT N2$ 

RETURN 
HIT=0 
I Y= 1 
IF Y=5 


* 

* 

# 

© 

9 

e 

9 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


Y=6 

Y = 7 

Y = 8 


THEN 

THEN 

THEN 

THEN 


I Y=2 
I Y=3 
I Y=4 
I Y=5 


PEEP ( 


2768+X—1 + (Y —IY>*40)=C1 


PEEP ( 
PEEP ( 
PEEP < 
PEEP ( 
RETURN 
FOR S=1 TO 
W=24: GOSUB 
FOR 1=1 TO 
W=24: GOSUB 


HI 1=0 
HI T =-1 O 
H1T=20 

32768+X-1+ < Y-1Y) *40)=C4 ' THEN HII=70 
32768 + X- 1 + ( Y-1 Y ) *40 ) =« "5 T HEN H I T =50 


32768+X-1 + < Y-1Y > *40)=C2 
32768+X-1 + (Y-1Y)* 40)=C3 


THEN 

THEN. 

THEN 


50: GOSUB 
1 020 

>9: PRINT 1 

1020 


1010:. NE X T S 


NEXT ) 


INPUT ” VOLETE GI OC ARE ANCORA " ; A*. 


IF 32=210 THEN TURN“Ó 

TURN=1 
”S"THEN 


o 

IF SI=210 THEN 
IFLEFT$(AH,1)= 
GOTO 180 
END 

RETURN 

PRINT CHR*(19); 
FOR 1=1 TO W-l 
PRINT CHR$(17); 
NEXT I: RETURN 


PRINT CHP* * 14 '> 
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'fandu 

Radio/haekl 

1 < ) REM *********** *************** **' * * * * * ******* 


20 REM * * 
3 0 REM-* BERSAGLIO * 
40 REM * VERSIONE 7RS-S0 MOD. I * 
50 REM * * 
60 REM * PERSONAL SOFTWARE * 
70 REM * * 


SO REM **************************************** 

PO REM 

120 CLS: CLEAR 100 

130 FRINÌ TAB( 15) "B E R S A G I. ! 0": FRINÌ: FRI NT 
140 INPUT 

"BAITI IL NOME DEL PR:MO G1 OCA I DRE"; NT <I > 

150 INPUT 

"BATTI IL NOME DEL SECONDO G1 OCA* ORE "; NT<2> 

] 60 TURN= 1 : S ( 1 > =0 ; S t ? ) -< » 

170 GQSUB 1000 

1 30 PR I NTS)64 S T R INGT < 64 , " " ) :; : 

PR I NT.D64 , " TOCCA A " ; NT ( TURN ) ; 

190 FOR N=1 TU 1500: NEVI: POR N“1 TG 3 
210 GOSUB 1500: F*(N)=X+64: HIT=0 

220 IF XI 14 AND *1.--'53 THEN HIT” 10 

230 IF XI 23 AND XI 43 THEN HIT”20 

240 IF XI 29 AND XI 37 THEN HIT”30 

250 IF XI=33 THEN H1T=50 

260 I F < S < T U R N ) + HIT > = 21 O T H E14 

S< TURN>=3•TURN)+HI I 

270 PR I NT 5)0, NT (1) ; l, = ";S(l O " " ; NT ( 2 ) ; " = " ; S ( 2 ) ; 

23O IF S(TURN >=21O GOTO 2O0O ELSE NE XT 


290 IF TURN=1 THEN TURN=2 ELSE TURN=1 
300 FOR N=1 TO 3 
31 0 PR I NTS>P ( N ) , CHRT ( 32 ) ; 

320 NEXT 


330 GOTO 180 


1000 

CLS: FOR 

W_ 

T — 

7 TO 14: SET(66,Y): 

SET < 67, 

Y) 

1005 

FOR X=0 

TO 

127: SET < X, 6 >: NEXT 



101 0 

FOR Y=7 

TO 

13 STEP 2 



]. 020 

FOR X=60 

TO 

64 STEP 2: SET(X,Y) 

: SET VX+ 1 


NEXT X 





1030 

FOR X=69 

NEXT X 

TO 

73 STEP 2: SET(X,Y) 

: SET(X 

-1 

1040 

NEXT Y 





1050 

FOR Y=8 

TO 

14 STEP 2 



1 060 

FOR X=49 

TO 

59 STEP 2: SET(X,Y) 

: NEXT 

X 

1070 

FOR X=74 

TO 

84 STEP 2: SET(X.Y) 

: NEXT 

X 

1 080" 

NEXT Y 





1090 

FOR Y=7 

TO 

.13 STEP 2 



1 100 

FOR X =30 

TO 

48 STEP 4 



1 1 10 

SET(X+2, 

YV 

SET(X,Y+l): NEXT X 



1 120 

FOR X=86 

TO 

104 STEP 4 



1130 

SET <X„Y> 

: SET<X+2,Y+l): NEXT X 



1 140 

NEXT Y 





1 150 

RETURN 






NE XI 


V +1 ) : 
Y+l ) : 


1500 FOR X=16320 TO 16382 
1510 POKE X +1,91 : POPE X,32 

1520 IF INKEYT=CHRT(91) GOTO 1550 ELSE NEXT 
1530 POKE 16383,32 

1540 FOR X=1 TO 500: NEXT: GOTO 1500 
1550 X = X +1 ; X 1 = X - 16320 : POKE X,32: X =16382: NE X7 
1560 X=896+X1 


1570 IF F’EEK ( 15360+X ) >32 THEN RETURN 

1580 PR INT5)X , CHRT (91);: PR I NT3X+64 , CHRT ( 32 ) ; 
1590 X=X—64: GOTO 1570 


2000 CLS 

2010 P RIN T 5) 12 8, " H A VINT0 ’ 1 ;NT(TURN) 

2020 PRINT9320, ; : INPUT"VOLETE GIOCARE ANCORA";AT 
2030 IF LEFTT <AT, 1)= "S" THEN GOTO 160 


© 




© • 
« 
« 
9 
9 
« 
9 

« 

9 

9 

* 

« 

© 

e 

« 

« 

© 

» 

« 

» 

« 

• 

9 

9 

« 

« 


« 

e 


9 

9 

9 

9 

» 

9 


« 

9 

« 


9 9 



INFORMATICA BIELLA sas 


Rivenditore autorizzato APPLE. 
Rivenditore OLIVETTI M 20/ST. 






>'•>> ; 





Distributori stampanti a Margherita compatibili 

CENTRONICS STANDARD: 

OLIVETTI ET 121/201/221 
ANTARES 6000 
ADLER SE 1010/1030. 


Sono disponibili anche le sole interfacce. 


P. S. PAOLO 1/B - 13051 BIELLA 
TEL. 015/29875-24181 























« 
ft 
« 
« 
« 





• 

$ 

3$ 

$ 

♦ 

£ 

$ 

# 

& 


& 

« 

f? 

# 

9 

9 






9 


9 


9 

9 

• 

9 

9 

# 

9 

9 

# 

9 

9 

9 

£ 

9 

9 


9 

9 


9 

9 

9 

9 

9 


9 


9 

9 

# 

9 


9 

9 

9 

9 


9 


9 

9 


9 

9 

9 


9 

9 

9 


9 

9 


» 

9 

9 


« 


Orologio digitale 



Questo programma simula un orologio digitale, vi¬ 
sualizzando sullo schermo le ore, i minuti ed i secondi in 
grande formato. 

Nella riga 100 si inizializzano gli indirizzi relativi al 
modo musicale. Il modo musicale si abilita infatti con 
POKE 59467,16; con POKE 59466,Y si decide l’inter¬ 
vallo di frequenza e con POKE 59464,X si decide la 
frequenza (X e Y variano da 1 a 255). Per chiudere il 
modo musicale si devono ripetere le tre POKE con 
argomento 0. 

Il modo musicale viene azionato al cambio dell’ora 
(per esempio dalle 08:59:59 alle 09:00:00) nella riga 
260. 

L’istruzione F% = FRE(0) della riga 980 serve a com- 


9 
9 
# 
& 

pattare le stringhe utilizzate e ad eliminare quelle che 
non servono più: ogni volta infatti che si trova una varia¬ 
bile stringa, sia essa già definita stringa, sia essa già 
definita oppure no, essa viene memorizzata. Ciò com¬ 
porta uno spreco di memoria, occupata da stringhe 
ridefinite e, pertanto, inutili. Nel nostro caso la variabile 
alfanumerica T$. L’operazione di compattamento è 
eseguita automaticamente dal sistema operativo quan¬ 
do non c’è più memoria disponibile. In tal caso, tuttavia 
l’esecuzione di questa istruzione non può essere relati¬ 
vamente lenta, con un aumento del tempo di esecuzio¬ 
ne del programma. Richiamandola periodicamente, si 
ottimizza l’occupazione di memoria e si migliora la velo¬ 
cità di esecuzione. ■ 


C 1 Commodore 


10 REM * * % * * * * ********* %: *% % * * ***** *%%%%%%%*%%%* 


20 REM * * 
30 REM * OROLOGIO DIGITALE * 
40 REM * VERDONE PET/CBM 3032 E 4032 * 
50 REM * * 
6O REM % PERSONAL SOF ! MARE ♦ 
70 REM * * 


30 REM *'**’***;rin****** in ************** ********* 

90 REM 

1 00 U-59464; y=59466: 7. =5946'7 

1 10 A= 333 3 4 : B= 7-3700 : CICCHE * < 203 > 

3 2O D! - CHRI ( 1 450 : DI ~ DI + DI + DI+D* + DI+DI+D* 

3.23 FRI NT CHE* ( 3. 47 ^ 

1 30 I NPUT " BATI T I. ' ORA < ES. 2 7 4 158 ) : ";T$ 

140 II- LEN(TI) ó GOTO 130 
150 RR3NT CHR*(147> : 1II=TI 
3.60 FOR T=0 TO 6: ERI NT: NE XT 

1 7 0 P 0 y E A, '(4 7 : P 0 \ l- A -1 2 0,8 7 

3 8 0 R 0 LE B , 87 : F‘0 F E B - 3.2 08 7 

190 GOSUB 900: T=34 

2 o 0 D ~ S : GOSUB 280 : T - T -- 6 

210 D“D2: GOSUB 280: T-T-8 
220 B=M: GOSUB 280- T-T-6 
230 D=DM: GOSUB 280: T”T-8 

240 D~H: GOSUB 280: T = T-6 
250 B-DH: GOSUB 280 

260 IF S=0 AND D2~0 AND M”0 AND DM=0 GOTO 1020 
270 GOTO 190 

280 0N D G0T0 320,740,410,43O.55O,620,690,760,830. 
290 FRINT TAB(T) " "CICICI" " 

300 FOR 1 = 1 TO 5: FRI NT TAB (DU" "C$: NE X T I 

310 PRINT T AB(T>" "CI C*C* D* : RE TURN 

320 FOR 1 = 1 TO 6: FRINÌ TABU) " "CI : NEXT I 

330 PRINT TAB <T> " “CIDI: EE TURN 

340 PRINT TAB (T ) " "CUCICI" " 

350 PRINT TAB(T)CI" "C$ 

360 PRINT TAB(T)" "Ct 

370 PRINT TAB CT ) " ,, C$" " 

380 PRINT TAB <T>" "CI" 

390 PRINT TAB(T)" "C$ M 

400 PR1NT T AB < T>C*C*C*CIOIDI: RETURN 
* 


4 10 
420 
430 
440 
450 
460 
470 
480 
490 
500 

5 1 0 
520 
530 
540 
550 

560 

570 

580 

590 

600 

6 1 O 
620 
630 

6 4 O 
650 
66* > 
670 
680 
690 
700 

7 10 
720 
730 
740 
750 
760 
770 
780 
790 
800 

8 1 0 


PRINT 
PRINT 
PRINT 
PRINT 
F’R I NT 
PRINT 
PRI NT 
PRINT 
PR I NT 
PRINT 
PRINT 
PRINT 
PRINT 
FRI NT 
PRINT 
PRINT 
PR I NT 
PR I NT 
PR I NT 
PR I NT 
PR I NT 
PR 1 NT 
PR T NT 
F’R 1 NT 


TAB <T)" 
TAB «TIFI 
TAB(T> " 
TAB(T)" 
TAB CT) M 
TAB(T)CI 
TAB(T)" 
TAB(TI" 


r^ciCI" 
"CI 
"CI 

"CICI" " 
"CI 
"CI 

CICICI" 

ii r-H- ii ii 


ii 


"DI: 


RETURN 


TAB(T)" "CICI" " 

TAB(Ti" "CI" "CI" " 

TAB(T)CI" "CI" " 

tab rn eie icicici 

TAB(T>" "CI" " 

T AB(T> " "CI" "DI: RETURN 

TAB(T> CICICICICI 
TAB(Ti CI" 

TAB(T>CICICICI" " 

TAB(T)" "CI 

TABU*)" "Ci 

TAB(T)CI" "CI 

TAB <T)" "CICICI" "DI: RETURN 

TAB(Ti" "CICICI 

TAB(T >" "CI" 

TAB(Ti CI" 


PRI NT TAB(T ) CICICICI" " 

PRINT TAB(Ti CI" "CI 

PRINT TAB(TOCI" "CI 

PRI NT TAB(T >" "CICICI" "DI: REIURN 

PRI NT TAB(T)CICICICICI 

PRINT TAB(TI CI" "CI 


PRINT 

TAB(T)" 

"CI" " 

PR I NT 

1 AB <TI " 

"CI" 

PR I NT 

TAB(TD " " 

CI " 

PRINT 

TAB(Tl" " 

CI" 

PR I NT 

TAB(T) " " 

CI" "DI: RETURN 

PRINT 

TAB(T)" " 

CICICI" " 

PRINT 

TAB(T1 CI" 

"CI 

PR I NT 

TAB (TO CI" 

"CI 

PRINT 

T AB(T) " " 

CICICI" " 

PR I NT 

TAB< IO CI" 

"CI 


PRINT TAB(T)CI" "CI 
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820 PRINT TAB ( T > " "C*C*C*>" " D* : RETLJRN 
830 PRINT TAB (T) " "C*C.*C%" " 

840 PRINT TABn')C$" "C* 

350 PRI NT TAB(T)CT" " C% 

860 PRINT TAB (TV "C*C$C*C$ 

870 PRINT TAB <T)" "Ct 
880 PRINT TAB (TV "C*. M " 

890 PRINT TAB<T>C*C*C*" "D$: RETURN 

900. IF T $=TI $ GOTO 900 

910 T*=TI*: S”VAL(MID$( T $, 6, 1) ) 

920 B2=VAL (MIDI» <T*, 5, 1 ) ) 

930 M=VAL(MID*(T*,4,1>) 

940 DM=VAL (MID* <T*,3, 1 > >’ 

950 H=VAL(MID*(T*,2,1)> 


960 DH=VAL(MID$(T$,l,l>) 

- 


970 

IF DH*10+H 

=24 THEN 

H=0 

: DH=0 


980 F7.-FRE ( 0 ) : 

RETURN 


• 


990 POPE Z,16: 

POPE V, 

45: 

POPE U,0: RETURN 

1 000 

POPE Z,0: 

por E v, 

0 : Ri 

OPF U,0: RETURN 

101 0 

FOR T1==0 

TÒ DU: N 

E X T : 

RETURN 


1020 

GOSUB 990 

: FOR T= 

1 TO 

36: READ F,D 

u 

1030 

POPE LI, F : 

GOSUB 1010: 

NEXV: H=DH*1 

0+H 

1040 

IF HO 12 

AND H: o 

1 HE N HI=M: GOTO 

1 060 

1050 

H1=ABS!H- 

12) 




1060 

FOR 11=1 

TO HI : P 

OPE 

U,32: GOSUB 1 

01 0 

1070 

POPE U,0: 

GOSUB 1010: 

NEXT: GOSUB 

1 000 

1080 

RESTORE: 

GOTO 190 




1090 

REM F 

D F 

D 

F D 


1 100 

DATA 126, 

100,112, 

100, 

126, 100 


1 1 10 

DATA 142, 

100,150, 

100, 

142,300 


1 120 

DATA 126, 

100,000, 

1 oo, 

169,100 


1 130 

DATA 150, 

100,142, 

100 , 

000,100 


1 140 

DATA 150, 

100,142, 

1 00, 

126,1OO 


1 150 

DATA 000, 

100,126, 

1 00 , 

112,100 


1 1 60 

DATA 126, 

100,142, 

1 00, 

J 5*'», 1 00 


1 1 70 

DATA 142, 

100,126, 

1 00 , 

142,100 



1180 DATA 150,100,142,100,126,100 
1190 DAT A 000, 100, 169, 100,000, 100 
1200 DATA 126, 100,000, 100, 150, J 00 
1210 DATA 190, 1 • >0, 126,400,000,250 
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Il piacere del computer è la prima collana inte¬ 
ramente dedicata alle applicazioni hobbystiche 
e professionali del personal computer. Questi 
libri descrivono l’hardware e il software, inse¬ 
gnano la programmazione in vari linguaggi, of¬ 
frono molteplici applicazioni e informazioni pra¬ 
tiche. Per conoscere gli altri titoli finora ap¬ 
parsi (relativi al PET/CBM, all'Apple, al Basic, 
al Pascal, al TRS-80 e ad altri argomenti) chie¬ 
dete il catalogo generale a 

franco muzzio & c. editore 

via bonporti 36 -35100 padova 


cognome e nome 


indirizzo 


cap, località 
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Colpo strategico 
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Colpo strategico è un gioco che richiede logica e 
memoria. I giocatori tentano di catturare i pezzi dell’av¬ 
versario muovendo un’armata di 40 pezzi su una scac¬ 
chiera, in avanti, all’indietro e lateralmente. 

Generalmente sono necessari da 30 minuti a un’ora 
per fare una partita. Man mano che i giocatori acquistano 
familiarità con il gioco, svilupperanno le loro strategie di 
posizionamento dell’armata e movimento. 

$ 

$ 

Istruzioni 

» 

Obiettivo del gioco è di muovere dei pezzi attraverso 
un campo di battaglia per catturare la bandiera dell’av¬ 
versario. Ogni giocatore comincia con una armata di 40 
pezzi composta da: 


NUM. 

PEZZI 

NOME 

GRADO 

1 

Maresciallo 

1 

1 

Generale 

2 

2 

Colonnello 

3 

3 

Maggiore 

4 

4 

Capitano 

5 

4 

Tenente 

6 

4 

Sergente 

7 

5 

Artificiere 

8 

8 

Scout 

9 

1 

Spia 

10 

6 

Bomba 

non eliminabile 

1 

Bandiera 

non eliminabile 


Questi pezzi sono in ordine di grado militare: il mare¬ 
sciallo ha il grado più alto, la spia il più basso. Tuttavia, 
questo è l’unico pezzo che può eliminare il maresciallo 
dalla tastiera. Le bombe sono pezzi non eliminabili che 
possono eliminare qualunque pezzo che tenti di 
“colpirle”, escluso l’artificiere che può disinnescarle ed 
eliminarle. Il gioco si effettua su una scacchiera 10 x 
10, che viene continuamente visualizzata sullo scher¬ 
mo durante il gioco. Il primo giocatore posiziona i pezzi 
sulle quattro righe superiori della scacchiera, il secondo 
giocatore sulle quattro righe inferiori. Le due righe cen¬ 
trali sono vuote all’inizio del gioco. Quando i due gioca¬ 
tori hanno posizionato il loro esercito, hanno la possibili¬ 
tà di fare qualunque spostamento. 

I Posizionamento 

Il primo giocatore posiziona i pezzi sulle righe 1-4 (la 


9 
# 

» 
« 
% 

riga 1 è quella posteriore, la 4 quella anteriore). Per 
posizionare uno dei pezzi eliminabili (eccetto la spia) 
basta battere il grado, e il quadrato lampeggiante con¬ 
terrà quel pezzo. Per posizionare una spia, una bomba 
o una bandiera, battere S, B o F rispettivamente. Il 
secondo giocatore posiziona i pezzi sulle righe 7-10 (la 
riga 7 è quella anteriore e la riga 10 quella posteriore). 

* 

Mosse l 

1. I pezzi si possono muovere solo uno spazio alla 
volta: in avanti, all’indietro o di lato. Non sono possibili 
mosse diagonali. I giocatori battono le coordinate del 
pezzo che vogliono spostare. Le coordinate X e Y di un 
pezzo vengono misurate verticalmente e quindi oriz¬ 
zontalmente (X = verticale, Y = orizzontale). 

I pezzi vengono rivelati solo quando è il turno di quel 
giocatore. L’avversario non può guardare lo schermo 
quando un giocatore si muove. 

2. I due pezzi non possono muoversi al centro della 

scacchiera. ; 

3. Due pezzi non possono occupare lo stesso spa¬ 
zio, e non sono permessi salti. 

4. La bandiera e la bomba non possono essere mos¬ 
se. 

L’unico momento in cui i due giocatori possono guar¬ 
dare lo schermo contemporaneamente è quando un 
pezzo di un giocatore attacca un altro. 

Regole di attacco 

1. Non è possibile un attacco in diagonale ma solo 
sui quattro lati del quadrato adiacente. 

2. Un giocatore non può attaccare e muovere allo 
stesso tempo. 

3. Per attaccare seguire le seguenti regole. Quando 
il computer visualizza DA? Il giocatore batte le coordi¬ 
nate della posizione attuale. Il computer quindi visualiz¬ 
za A? e il giocatore batte le coordinate del pezzo che 
vuole attaccare (assicurandosi che sia in uno dei qua¬ 
drati vicini). Il computer risponde CORRETTO? e se si 
risponde SI il computer controlla che l’attacco sia corret¬ 
to. Se si risponde NO si ritorna a DA? 

4. Il pezzo con il grado minore viene eliminato dalla 
scacchiera. 

5. Se i gradi sono uguali, tutti e due i pezzi sono 
eliminati dalla scacchiera. 

6. Una spia può eliminare un maresciallo se essa 
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attacca per prima, invece se il maresciallo attacca per 
primo accade il contrario. Un artificiere può eliminare 
una bomba. 

7. Le bombe non si possono spostare. 

Particolarità 

1. Se per qualche ragione la visualizzazione dello 
schermo viene disturbata eventualmente da qualche 
input sbagliato, un giocatore può battere le coordinate 


0,0 sia in risposta a DA? che in risposta a A? 

2. Se un giocatore non può muovere al suo turno o 
desidera passare, basta battere — 1, -1 in risposta a 
DA? 

3. Se un giocatore sbaglia a battere le coordinate in 
risposta a DA? può battere -1, -1 in risposta a A? 

4. Quando un giocatore ha introdotto le coordinate 

iniziali e finali, il computer chiede CORRETTO? e si può 
rispondere SI o NO. _ 




« 

# 

• 

fi» 

e 


« 

m 

m 


% 

* 

» 

* 

* 

$ 


» 


IMi 

Radio/hackl 

IO REM ***************************************** 


20 REM * * 
30 REM * COLPO STRATEGICO * 
40 REM * VERSIONE TRS-80 MOD. I * 
50 REM * * 
60 REM * PERSONAL SOFTWARE *' 
70 REM * * 


30 REM ** ******************** ******************* 
90 REM 

100 CLS: DEFINÌ" A-Z: CLEAR 250: PL..~1: Z = 125 
1 10 DIM SP(2): SF* ( 1 > =314 : SP ( 2 ) "698 
120 DIM A(20, 10) , C <20, IO) ,NO <12> , P1 < 12) 

130 FOF: T = 1 TO 12: READ NU'T): NEXT r 
1 40 DATA 1 , 1. , 2,3, 4,4 , 4,5, 8, 1 , J , 6 
150 PRINT CHRT(23); 

1 60 PRINT:?464 , M C0LPO STR A T EGIC0 '' : 

170 DDT=STRINGT(7,191)+CHPT(76)+STRINGT (7 ,24) 

ISO DET=DDT+DDT+DDT+STRINGT(7, 191 ) 

190 EDT=STRINGT (7, 130 +CHRT<26)+STRINGT(7,24)+ 
CHRT (199) +CHRT ( 26) +STRINGT < 7,24) +CHRT ' I 99 > + 
CHRT ( 26 ) +STRI NGT (7,24) +STR I NGT ' 7 , ] 7ò > 

200 D IM BT (12): BT ( 1 ) =CHRT (1 • n +CHRT ( 19 ] ) + 

CHRT ( 26 ) +STRINGT ( 2,24 ) +CHPT ( 1 7A ) +CHRT (191) + 
CHRT ( 1 76) 

21 0 BT (2) =STR 1 NGT (2, 131 > +CHPT ( 1 91 ) +CHRT ‘ 26) + 

STRINGT (3,24) +CHRT M 91 ) +STRINGT (2, 1 79> 

220 BT (3) -STR I NGT> ( 2,131.) +CHRT ( 1 91 ) +CHRT (26) + 

STRINGT(3,24)+STRINGT < 2, 179)+CHRT<191) 

230 BT (4)=CHRT(191)+" "+CHRT(191)+CHRT<26)+ 

STRINGT<3,24)+STRINGT(2,131)+CHRT(191) 

240 BT (5) =CHRT (191) +STRI. NGT (2, 1 31 ) +CHRT (26) + 

STRINGT(3,24)+STRINGT<2,179)+CHRT(091) 

250 BT(6)=CHRT<191)+STR1NGT(2,171)+CHRT(26)+ 

STRINGT(3,24 >+CMRT(191)+CHRT(179)+CHRT(191) 
260 BT(7)=CHRT(143)+CHRT<13 J)+CHRT(191)+CHRT ' 26> 
+CHR.T ( 24 > +CHRT ( :| 9 1 ) 

270 BT ( 8 ) =CHRT (191. ) +CHRT < 179 ) +CHRT (191) +f HRT < 26 ) 
+STF: I NGT (3,24) +CHRT ( 1 9 | ) +CHRT (176) +CHRT ( 1 9 1 > 
280 BT(9)=CHRT(191)+CHRT(179)+CHPT(191)+CHRT(26> 
+CHRT(24)+CHRT(191) 

290 BT(11)=CHRT(191)+STRINGT(2, 131 >+CHRT(26> + 

STRINGT(3,24)+CHRT(191)+CHRT(131) 

300 BT ( 10) =CHRT (166) +CHRT ( I T . 1 ) +CHRT < 1 32) + 

CHRT(26)+STRINGT(3,24)+CHRT(164)+CHPT(I79)4 
CHRT(132) 

310 BT(12)=CHRT(136)+CHRT(147)+CHRT(26)+ 

STRINGT(2,24)+CHRT(I90)+CHRT(391)+CHRT(139) 
320 FDR X= 1 TG 10: FOF: Y=1 TO 10 
330 E(X,Y)=125+Y*5+X 1 64: NEXT Y, X. 

340 NLT="123456789012345678911234567" 

350 E9=VARPTR (NL.T) : E3-PEEK (E9+1 ) +25ó*F'EEP (E9+2) 
360 FOR E7 = E3 TC) E3+26: READ E6: POPE E7,E6 
370 NEXT 

380 DATA 205,127,10,77,68,62,1,105,211,255,45,32 
390 DATA 253, 60, 105,211,255,-15,32,253, 13, 16,238 
400 DATA 175,211,255,201 

4 10 IF REE K ( 16396 ) =20 1 FOLE 1 6526, F’EEK ( E9+ 1 ) : 

POPE 16527,PEEK(E9+2): GOTO 440 
420 CMD"T": DEFUSRO-PEEK(E9+1)+256*PEEK(E9+2) 


430 POPE 14308,0 

440 FOR X=1 TO 4: FOR Y=1 TO 10 
450 A(X,Y) = 1 : A(X + 16,Y)=1: NEXT Y,X 
460 GOSUB 470; GOTO 930 

470 CLS: FOR 1=15488 TO 15538: POPE 1,176 

430 U=USR(800): NEXT 

490 FOR 1=192 TO 763 STEP 64 

500 F'RINT5)I, " " ; : FOR 11 = 1 TO 10 

510 F'R I NT CHRT (191); CHRT (196);: U=USF: ( 850 > 

520 NEXT II: PRINT CHRT(191): NEXT 
530 FOR 1=16192 TO 16242: POPE 1,131 
540 U=USR(800): NEXT 

550 FOR 1=15819 TO 15828: POPE 1,191 

560 POPE I+64,191: POPE I+20,191: POPE 1+84,l91 

570 U=USR(625): NEXT 


580 

POPE 

15819, 

184 

POPE 

15839, 

134 

590 

POPE 

15820, 

1 90 

POPE 

15840, 

1 90 

600 

POPE 

15826, 

188 

POPE 

15346, 

1 83 

610 

POPE 

15827, 

176 

POP E 

15347, 

1 76 

620 

POPE 

15883, 

131 

POPE 

15834, 

1 43 

630 

POPE 

15903, 

131 

POPE 

15904, 

143 

640 

POPE 

15890, 

143 

POPE 

15891, 

131 

650 

POPE 

15910, 

143 

P OP E 

15911, 

131 

660 

T = 1 : 

FOR 1 = 

897 

TO 942 

STEP 

c r 

V.JI 

670 

PRINT:?I, T; 

: T= 

-T+ 1 : U 

=USR(1 

O ” « 

680 

FOR I 

=243 TO 819 STEP 

64: PRINT:?! 


690 T = T +1 : LMJSR(1632) : NEXT 

700 PF'= 1 : GOSUB 760; PP=2: GOSUB 960: GOTO 310 
710. FOR X=l+(PL-1>*10 TO 10+(PL-l>*lO 
720 FOR Y=1 TO 10 

730 IF A <X,Y)=0 GOTO 750 ELSE 1F C ( X,Y)=10 

THEN PR I NT;DE ( X -AD, Y > ,. " S " ; ELSE IF C ( X , Y ) = 
1 1 THEN PR I NTiDF ( X-AD, Y ) , " F " ; El SE IF 

C ( X , Y ) = 1 2 THEN PR I NTì)E ( X -AD, Y ) , " * " ; F.I..SE 

PR I NT:?E ( X -AD, Y ) , C ( X , Y X ; 

740 U=IJSR ( 1 300 ) 

750 NEXT Y,X : RETURN 
760 FOR X=1 TO 10: FOR Y=1 TO 10 
770 IF A(X +(PP-1)* 10,Y)=0 GOTO 800 
780 PR I NT:?E ( X , Y ) „ STR ( NGT (2,1 40) ; 

790 U=USR(1320) 

300 NEXT Y,X : RETURN 

810 FOR I = 15607 TO 15615: POPE 1,131 
820 POPE 1+192,176: POPE 14384,131 
830 POPE T+576,176: NEXT 

840 FOR 1=15607 TO 15799 STEP 64: POPE 1,191 
850 POPE 1+8,191; POPE 1+384,191 
860 POPE 1+392,191: U=USR(8020): NEXT 
870 PRINT:? 183, "NUMERO 1"; 

330 F’RINT:?837, "NUMERO 2";: RETURN 

890 FOR 1=1 TO 500: NEXT: RETURN 

900 PRI NT:?0, CHRT ( 3O ) ; : RETIJRN 

910 FOR 1=1 TO 1200: NEXT 

920 PRINT.?0, CHRT (30);: RETURh 

930 FOR PL=1 TO 2: FOR XX=1 TO 12 

940 P I ( X X ) =0 : NE X T XX: AD= ( PI. -1 ) * 10 

950 PR I NT:?0, " POS I Z IONAMENTO GIOCATORE " PI : 

960 GOSUB 910 

970 FOR X=l+(PL-1)*16 TO 4+(PL-1)*16 
980 FOR Y=1 TO 10 

990 PRINT.?0, "CHE PEZZO VUOI IN QUESTO POSTO"; 
1000 AT=INPEYT 


1 010 

IF 

AT="S" 

THEN 

A= 1 0: 

GOTO 

1 060 

1020 

IF 

AT="B" 

THEN 

A= 12 : 

GOTO 

1 060 

1030 

IF 

AT="F" 

THEN 

A ~ 1 1 : 

GOTO 

1 060 

1040 

A= 

VAL (AT) 
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1050 IF A=0 THEN F'R I NT;DE ( X- AD, V ) , " 11 > ; 

PRI NT D>F ( X -AD, Y ) , SIP ING* ( 2, 1 40 ) ; » 

GOTO 1000 

1060 P=PI ( A ) : IF P=N LI ( A ) G G J 0 9 9 O 

1070 PI (A) =F'I (A)+1 

1080 IF A*="8" THEN A*="*" 

1090 PPI NTiDE ( X - AD, Y ) , " " ; A*; : C ( X , V ) =A 
1100 U=USR<8020): FDP I I — 1 TO 1.0: NF X T TI 
1110 NEXT Y,X 

1120 P=0 : P1 =0 : P2=0 : P3=O : P 4=0 : P5=0: P 6=O 
113 0 P 2 - 0 : P 8=0 : P 9=O : . P S = 0 : P B =0 : P F=0 : p p - p |_ 

1140 GOSUB 760 

1150 GOSUB 900: NEXT PL 

1160 POR PL=1 TO 2: AD=(F*I -1)#10: GOSUB 900 
1170 pp INTiDO, "GIOCAIORE" ; 3-PL ; "GlRAT I ' " 

1 180 (30SUB 910 : G0SUB 7 1 O 

1190 GOSUB 900: PRINT90„"VUOI FARE CAMBIAMENTI"; 

1 200 INPUT PR'* : I F LEFT*<RR*, 1 ) ="N" G0T0 J 33< > 

1210 IF LEFT*<RR*, J )<>"S" GOTO 1190 
1220 GOSUB 900: PRI NTo>0, "DA" ; : INPUT 1.11,U2 
1230 IF U1 < 1 OR U1 10 OR U3.< >INT <U1 ) GOTO 1220 

1240 IF U2< 1 OR 1)2: 10 QR IJ2 I NT A 12 > GOTO 1220 

1 250 L.J 1=U1+(PL-1)* 10 : I F A < U 1 , IJ2 > > 1 GOTO 1 220 

1 260 F'R I NTS>1 3 , CHR* ( 30 ) ; : FRI NT a) 1 3, "A" ; 

1270 INPUT U3, LI4 

1280 IF U3< 1 OR U3> 1.0 OR U3< -TNTAJ3) GOTO 1260 

1290 IP U4< 1 OR LI 4 IO OR U4 I NT ( 1.14 ) GOTO 1260 

1 300 U3=U3+ <PL-1 ) *10: IP A <U3,1)4) I GOT0 1 260 

1310 U5=C CUI, U2 ) : C < U 1 , LJ2 ) =C ( U3, LI4 ) : C < LJ3, U 4 ) -1J5 

1320 GOSUB 2520: GOTO 1 1.90 
1330 PP-RL. s GOSUB 760: NEXT PL 
1340 POR PL = 1 TO 2: AD= (P'L-1 ) * 10: GOSUB 900 
135O PR I NT-DO, "TOCCA AL G T OGATRE " 1 ; P!.. ; 

1360 PR1 NT" <GI OCATORE";3-PL; "G1 RAT I ' > " 

1370 GOSUB 910: GOSUB 710 

1380 GOSUB 900: F'R T WT -DO, " DA : " ; : INPUT CI , C2 

1390 IF C1 =0 ANI) C2=0 GOTO 1430 

1400 IF C1=—1 AND C2=—1 GOTO 2450 

1410 IP d i OR Gl IO OR Gl : INI(Gl > GOTO 1380 

1420 GOTO 1440 

1430 GL.S : GOSUB 470: GOSUB 710: GOTO 1380 
1440 IF 02 1 OR 02 10 OR C2 INTU~7> GOTO 1380 

1450 C1=C1+ < PL -1 ) * 1 O : I F C (Gl , G2 > = 1 1 GO II ) 1 380 

1460 IF C < C1,C2)=12 GOTO 1380 
1470 IP A(G1 ,C2>=0 G□TO 138O 
1 4 8 O I F A < C1 - A D * 2 + 10, G 2 ) = 1 GOTO 1 3 8 A 
1 490 PR I NT014, CHR* < 21 01 ; : PP I NT;D 1 4, " A " ; 

1500 INPUT C3,C4 

1510 IF C3=0 AND C4=0 GOTO 1600 

1520 IF C3=—1 AND C4=-l GOTO 1380 

1530 IF C3<1 OR C3>10 OR C3< >INT(C3) GOTO j 4 90 

1540 IF C4<1 OR C4>10 OR C4<>INT(C4) GOTO 1490 

1550 C3=C3+(F'L-1 ) * 10 

1560 Y6=3*INT(E CC-3-AD,C4)/64) 

1570 X6=2*(E(C-3-AD,C4 > —INT<Y6/3)*64) 

1580 IF POINT( X6,Y6) GOTO 1490 

1590 IF C3=C1 AND C4=C2 GOTO 1490 ELSE 1620 

1600 CLS : GOSUB 470: GOSLJB 710 

1610 F'R I NT:D0, " DA" ; C1 - < PL -1 ) * 10 ; " , " ; C2 ; : GOTO 1 490 

1620 IF A <C3,C4)=1 GOTO 1490 

1630 IF C30C1 AND C40G2 GOTO 1490 

1640 IF C30C1 GOTO 1660 

1650 IF C4=C2+1 OR C4=C2-1 GOTO 1670 ELSE 1490 
1660 I F C: 3 < > G 14-1 A N D C 3 < > G1 -1 G 0 T 0 1 4 9 O 
1 670 PP I NT a) 35, CHR* ( 30 ) ; : PP INT-D35, " GI USTO " ; 

1680 INPUT PP*: IF LEFT*<RR*„1)="N" GOTO 1380 
1690 IF LEFT* (PR*, 1 ) < >"S" GOTO 1.670 
1700 IF A C C3-AD *24-10, C4 ) = 1 GOTO 1 8 1 0 
1710 FDP 1=1 TO 10 

1720 I F C < C1 , C2 ) = 1 0 THEN PP I NT.DE ( C3-AD, G4 ) , " S " : 

ELSE PP I NT -DE! C G 1 -AD, G2 > , C < C1 , G2 ) ; 

1730 GOSLJB 2460 s F'R I NT5)E < C1 -AD, C2 ) , " 

1740 GOSUB 2460: NEXT I 

1750 ACCI,C2)=0: A<C3,C4)=1 

1760 C<C3,C4)=C<C1,C2>: CCC1,C2>=0 

1770 I F C ( C3, G4 ) = 1 O T HEN PP I NT a» E < C3--AD , C4 ) , " S " ; 

ELSE PPINT DECC3-AD,C4) ,C <C3„C4> : 

1780 FDP 1 = 1 TU 10: U=USPC8000> : U=USP <25700) 

1790 NEXT I: GOSUB 890 

1800 PP=PL: GOSUB 760: GOTO 2390 

1310 PF-F'L: GOSUB 760 

1820 IF C < C1 , C2 ) = 10 THEN PF: INTiDE <C1 -AD, C7 ) , " S" ; 


ELSE PR I N T -DE C C1 -AD, C2 ) , C ( C1 , G2 ) ; 

1830 GOSUB 900 

1 840 PR I NT .DO, " GIOGATORE " ; 3-PL. ; " GUARDA ' 1 " ; 

1 850 GOSUB 9 10 : PR I NTiDSP < PL. ) , B* C C (CI , G2 ) ) : 

1860 PRI NTiDSP ( 3-PL ) , B* <C <C3-AD*2+10, G4> ) ; 

1870 GOSUB 890 

1 880 IF C < C3—AD*24-10, G4 ) = 1 1 GO TO 24 10 
1890 IF G (C3-AD*24-10, G4) =12 GOTO 2230 

1 900 IF C ( C 3 - A D * 2 4-10, G 4 ) < > 1 G 0 TO 1 9 2 O 
1910 IF C ( C, 1 ,C2)=10 GOTO 1940 ELSE 2030 

1920 IF C CC1,G2)=C(C3-AD*2+10,C4) GOTO 2140 
1930 IF C (Gl , C2) >C CC3—AD*24-10, G4 ) GOTO 2030 
1940 FOP I = 1 TO 1 0 : PR INTiDSP ( 3-PL. ) -66, DE* ; 

1950 U=USF: C 9000 ) : GOSUB 2400 : F'R I NT.DSP ( 3-PL ) -66, 
ED*;: U=USP<12350): GOSUB 2400: NEXT I 
1960 PP I NT:DO, " GI OGATORE " ; PL ; " VI NOE " ; 

1970 PR I NTiDE ( C3-AD, C4 > , " " ; : GOSUB 910 

1980 PRINTiDSP (PL.) -66, ED*; 

1990 A (C3-AD*24-10,04) =0: C (C3, C4 ) =C (Gl , C2) 

2000 PR I NT;DE ( C3-AD, C4 > , STRING* (2,1. 40 ) ; 

2010 PR I NTiDE ( C1 -AD, C2 ) , " " ; 

2020 ACCI,G2)=0: A(G3,C4)=1 ; GOTO 2390 
2030 FOP 1 = 1 TO 10: PRINTiDSP <PL) -66, DE*; 

2040 IJ=USP (9000) ; GOSUB 2400 

2050 F'R I NTiDSP ( F‘L ) -66, ED* ; ; U=USP ( 12350 ) 

2060 GOSUB 2400: NEXT I 

2070 F'P I NTiDO, " GIOCATOPE " ; 3-PL ; " VINCE ! 1 " ; 

2080 PP I NTiDE ( G1 -AD, C2 ) , " " ; ; GOSUB 9 1 O 

2090 PR I NTiDSP ( 3-PL ) -66, ED* ; 

2100 ACCI -AD*24-1.0, C2 ) =0 : C ( C1 , C2) =C ( C3, C4 ) 

2130 ACCI,C2)=0 : GOTO 2390 

2140 FOP 1 = 1 TO IO; pp INT-D243, DE*; 

2150 PRlNTiD632, DE*; : U=USR<9000): GOSUB 2400 

2 160 F'R I MT.D248 , ED* ; : PR I NT5>632, ED* ; 

2170 U=USR<12350); GOSUB 2400: NEXT I 
2180 FRI NTiDO, 

"I GOCATORI SI DISTRUGGONO A VICENDA."; 

2190 F'P I NTiDE ( C1 -AD, C2) , " " ; 

2200 F'P INTiDE <C3-AD, C4) , " " ; : GOSUB 910 

2210 ACCI, C2 ) =0 ; 0(01,02) =0 : A ( C3-AD*24-10,04 ) =0 

2220 C ( C3-AD*24-1 0, G4 ) =0 : GOTO 2390 

2230 IF C(C1,C2)=8 GOTO 231O 

2240 FOP 1 = 1 IO 140; F'RINT CHR*<23); 

2250 LI=LJSR < 400 ) : NEXT I : PRINT CHR* ( 28 > ; 

2260 F'RINTiDO, " IL. PEZZO DEL GIOGTORE" ; PL: 

2270 FRINT "E J SALTATO IN ARIA."; 

2280 F'PINT;DE (C1 —AD, 02) , " ";: GOSUB 910 

2290 ACCI, 02 ) =0 : C ( G1 , C2 ) =0 : PR J NT5)248, ED* ; 

2300 PPINT;D632, ED$ ; : G0T0 2390 

23 1 0 U=USR < 0 ) : F'P I NTS>8, " t L. Gl OGATORE " ; PL ; 

2320 FRINT "HA NEUTRALIZZATO LA BOMBA."; 

2330 PPI NTiDE ( C3-AD, C4) , " " ; : GOSUB 910 
2340 PR I NTiDE ( G 1 -AD, 02 ) , " " ; 

2350 A ( 03—AD*2!4-1 0, G4 ) =0 : A ( C3,04 ) = 1 

2360 C (C3,C4)=C <C1 , C2> : C (C1 , C2) =0: A <C1. , G2) --O 

2370 F'R I NI a)E ( 03-AD, C4 .) , ST H 1 NG* • 2, 1 40 > ; 

2380 F'R I NT5)248, ED* ; : PR 1 NT-D632, ED* ; 

2390 NEXT F'L.: GOTO 1340 

2400 FOP L=1 IO 20: NEXT L: RETURN 

2410 CLS: FOP 1=1 TO 30 

2420 F'P 1 NT.D466, "IL G1 OGATORE " ; PL : " HA V1 MI 0" ; 

2430 U=USR ( 249 1 o ) : pp IN I.D466, CHR* < 2*1 5 ) ; 

244 O IJ=U S R ( 24900) : N EXT: G 0 'I 0 2 4 80 
2450 F'L =3—F'L. : GOTO 2410 
2460 FOP P1=1 TO 20: NEXT PI 
2470 U=USP(5 4 70) : RETURN 
2480 CLS: FRI NT CHR* ( 23 ) 

2490 PPINT.D516, "BATTI ENTEP PER GIOCARE ANGORA"; 
2500 IF F'EEL ( 14400) =1 THEN RUN 
2510 GOSUB 2460: GOTO 2480 

2520 I F C ( U1 , U2 ) = 1 0 THEN PR I N 1 .DE ( U1 -AD, 112 ì , " S " ; 

2530 IF CCU1 , L12 > = 11 THEN PR IN I.DE < U J -AD, i J2 > , " F"; 

2540 I F C< LI 1 , U2 ) = 1 2 THEN F'R I N T .DE AH -AD, U2 ) , " * " ; 

2550 IF C<U1,U2> 1" IHEN 

F'R 1 NTiDE ( U1 -AD , U2 ) , C < U1 , U2 > ; 

2560 IF G (U3, U4) = 1 0 THEN PP INI.DE (U3-AD, U4 ) , " S" ; 

2570 IF G (IJ3, U4 ) =1 1 THEN PPI NT.DE (U3-AD, 1.14 ) , " F " ; 

2580 I F C ( LI3, U4 ) = 1 2 T HEN F'R I N T-DE ( U3 -AD j. 14 ) , " * " ; 

2590 IF C<U3,U4)<10 THEN .. 

F'R I NT.DE ( U3-AD, U4 ) , C ( U3 , U4 ) ; 

2600 RETURN 


0 

fi 
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fi 


fi 

fi 


fi 
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fi 

fi 


fi 

fi 
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fi 
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Questo programma crea un file di comandi che, 
quando eseguito, intratterà un colloquio con il sistema 
operativo, come se i comandi provenissero dalla tastie¬ 
ra, e il computer agirà conseguentemente. 

È molto raro che si trovi una segretaria felice nell’ave¬ 
re un computer in ufficio. Ciò è dovuto, in parte, al gran 
numero di informazioni, apparentemente inutili, che bi¬ 
sogna introdurre nel computer prima che questo comin¬ 
ci a fare qualcosa di interessante. Parliamo di cose 
come BASIC, HOW MANY FILES?, MEM SIZE? e 
RUN. Il problema è che l’utente generalmente non com¬ 
prende l’importanza di queste “banali” informazioni. 
Bene, questo programma è scritto per introdurre tutte 
queste informazioni all'accensione del computer, e libe¬ 
rare la segretaria da questo fastidioso lavoro. 

Questo è un programma in Disk Basic e non funziona 
in Basic livello II. Assicuratevi di lasciare liberi almeno 
256 byte di memoria usando l’opzione MEM SIZE. 

Variabili 

EX$ Contiene dei comandi in linguaggio macchina 
che, quando eseguiti, scrivono il nuovo file comandi su 
disco con i seguenti comandi: 

CMD “S” 

"DUMP Nomefile (STA RT = X“ # # # # ”, 
END=X“####”, TRA=X“####”). 

IX$ Contiene gli input da tastiera da inserire nel file 
comandi 

$ Contiene ogni singolo input da tastiera 
ST Inizio decimale del codice macchina 
H1$ Inizio esadecimale del codice macchina 
Z Fine decimale del codice macchina 
Z$ Fine esadecimale del codice macchina 
V$ Nome del file 

K Distanza dall’indirizzo di inizio 

AD Indirizzo di POKE (=ST+K) 

V È un indirizzo da convertire nel byte più signifi¬ 
cativo (BPS) e byte meno significativo (BMS) 

VI BPS di V (usato anche nel calcolo di V3) 

V2 BMS di V (usato anche nel calcolo di V3) 

H$ Scala numerica esadecimale 

K(1)-K(4) Usati per la conversione esadecimale- 
decimale 

B Puntatore alla locazione di EX$ 

B4 Locazione di EX$ 

B1-B3 Valori temporanei usati nel calcolo di B4. B1 è 


usato anche come indirizzo da convertire in 
PBS e BMS come per V, ma da usare in EX$ 

CI BPS di B1 

C2 BMS di B1 

X$ Valore da inserire in EX$ 

Il computer richiederà un indirizzo di inizio in esadeci¬ 
male. Questo indirizzo deve essere nella memoria pro¬ 
tetta (più grande del MEM SIZE indicato in precedenza) 
e deve essere minore o uguale a: 

7F00 per le macchine 16 K 
BFOO per le macchine 32 K 
FFOO per le macchine 48 K 

; (sottraete 50 byte se pensate di usare il comando BA¬ 
SIC* al prossimo ingresso in Basic). 

Infine il computer vi chiederà il nome del file. Se non 
| date un’estensione, verrà usata l’estensione /CMD (la 
migliore per una esecuzione veloce). 

Ora il programma crea un file eseguibile in linguaggio 
macchina per eseguire questi comandi e trasferirvi in 
DOS. Per eseguire il file di comandi basta batterne il 
i nome. 

Un esempio. 

Per scrivere diversi programmi su nastro 

BASIC 

1 

48000 

CMD“T” 

LOAD“PROG1 ” 

CSAVE“A” 

LOAD“PROG2” 

CSAVE“B” 

LOAD“PROG3” 

CSAVE“C” 

CMD“R” 

END 

Per listare diversi programmi sulla stampante usare 
una procedura simile, ma con LPRINT. 

Routine 

130-280 

Gli input di tastiera sono posti nella variabile 1$; ogni 
input termina con un ritorno cursore (ENTER) seguito da 
un carattere NULL (CHR$(0)). 

Alla fine della lista viene aggiunto un End of File, 
CHR$(225). 
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300-620 

Mediante le routine 1400, 1480, 1530 viene messa in 
memoria una routine in linguaggio macchina, ed aggiun¬ 
ta alla variabile EX$. 

630-690 

Aggiunge input di tastiera al codice 
1120-1180 

istruzione DATA contenenti codice in linguaggio mac¬ 
china. 

1200 

Se l’indirizzo di memoria è maggiore di 32767, viene 
convertito negli appropriati valori negativi per PEEK e 
POKE. 

1220 

Converte l’indirizzo B1 nel BMS (C2) e BPS (CI). 
1250 

Routine d’errore nel caso che la posizione di EX$ sia 
cambiata (normalmente non dovrebbe capitare). 


1260 

Fornisce l’indirizzo di inizio e lo converte in decimale. 
1370 

Preleva i contenuti delle locazioni 40B1H e 40B2H e li 
usa per costruire V3 (fine della memoria protetta). 

1400 

Converte l’indirizzo V nel BMS V2 e BPS VI. Questi 
numeri vengono messi in memoria e aggiunti a EX$ dalla 
linea 6000. Ciò completa la parte dipendente dalla loca¬ 
zione del linguaggio macchina. 

1480 

Legge istruzioni in linguaggio macchina e usa la linea 
1530 per metterle in memoria e aggiungerle a EX$. 

1530 

Mette in memoria ASC(X$) e aggiunge X$ a EX$. 

1600 

Conversione da decimale a esadecimale (per il dump). 


1M| 

Radio Jhaekl 


1 O REM ######***#♦*********** ***************** * # 


20 REM * * 
30 REM * FILE COMANDI * 
40 REM * VERSIONE TRS-80 MOD. I * 
50 REM * * 
60 REM * PERSONAL SOFTWARE * 
70 REM * * 


80 REM ***************************************** 
90 REM 

100 CLEAR 1000 

110 HS= ,, 0123456739ABCDEF" 

120 K=0 

130 CLS: I*="" 

1 40 F'R I NT TAB < 20 ) " F I LE COMAND 1 " 

150 FRI NT" 

SCRIVI I COMANDI SECONDO POESIE PESO! E" 

160 FRINT" 

1. BATTI ’ENTFR' DOFO OGNI COMANDO ^ 

2. BATTI ’ PER CREARE IO NOI LI 'RITARDO) 

3. BATTI ? END ” PER FINIRE" 

170 FRI NT" 

BATTI LA LISTA Dfc1 COMANDIs" 

180 LI NE INPUT A* 

190 IF A*="'" THEN 230 
200 IF A$="<END " THEN 250 
210 I %-ì * + A*+CHPT> ( 13) +CHRT> iO> 

220 GOTO 180 

230 I*=]*+STRlNG*(I0,0) 

240 GOTO' 180 

250 I * =1 *+CHR *(255) 

260 FRI NT"LISTA COMPLETATA." 

270 FRI NT"SI STA CREANDO II FILE COMANDI." 

280 FRINT: GOTO 1260 
300 E X1»=" " 

310 FOR K=0 TO 8 
320 GOSUB 1480 
330 NE X T 
340 V=ST+62 
350 GOSUB 1400 
360 FOR K=11 TO 12 
370 GOSUB 1430 
380 NEXT K 


390 V=ST-»-25 
400 GOSUB 1400 
410 FOR K> 15 TO 28 
420 GOSUB 1480 
430 NEXT K 
440 V=ST+60 
450 GOSUB 1400 
460 FOR K=31 TO 41 
470 GOSUB 1480 
480 NEXT K 
490 V=ST +60 
500 GOSUB 1400 
510 FOR K = 44 TO 48 
520 GOSUB 1480 
530 NEXT K 
540 V=ST+62 
550 GOSUB 1400 
560 FOR K=51 TO 59 
570 GOSUB 1480 
580 NEXT K 
590 V=ST+64 . 

600 GOSUB 1400 

610 V=ST+62 

620 K=L?+1 : GOSUB 1400 

630 L=LEN( I $ ) 

640 FOR 1=1 TO L 
650 K : =L +1 

660 X*=MID* <i*,i,n 
670 GOSUB 1530 
680 NEXT I 
690 Z =ST +255 
700 GOSUB 1610 

710 LINEINPUT "NOME DEL FILE? " ; V* 

720 L=INSTR(V*,"/") 

730 IF L=0 THEN 1770 

750 EX*=LEFT*(EX*,64)+STRING*(20,CHR*(0>)+"CMD " 
+CHR* (34) +"S"+CHR* (34) +CHR* (13) +CHF’* (O) 

+STR1NG*(20,CHR*(O)) 

760 EX *=E X * + "DUMP "+V*+" (START=X ? "+H1 % +"’,END=X ? " 
+ Z*+"’,TRA=X ? "+H1*+" ')"+CHR*(13)+CHR*(0) 

+CHR*(255) 

770 MID* <EX*,23,1)=CHR* < 201) 


® « 0 a & i* Ai ai s?i @ # * » # $ a w © * ifn w «e $ «t $ » * « « # on er » » # # * # « & * * 
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780 B=0: B1=0: B2=0: B3~0: B4~0: C1=0: C2=0: B5=0 
785 FRINT"###"; EX* 

790 B=VARPTR (EX*) 

800 B1=B+1: GOSUB 1200 
810 B2=PEEK(B1) 

820 B1= B + 2: GGSUB 1200 
830 B3=PEEK(B1) 

840 B4=B3*256+B2 
850 B1=B4+62 
860 GOSUB 1220 

870 MID*(EX*, 10,2)=CHR*(C2)+CHR$(CI) 

880 Bl=B4+25: GOSUB 1220 

890 MID*(E X *, 14,2)=CHR*(C2)+CHR*(C1) 

900 B1 =B4+60; GOSUB 1220 

910 NID*(E X *,30,2)~CHR*(C2)+CHR*(C1) 

920 MID*(EX*,43,2)=CHR*(C2> +CHR*(CI) 

930 B1=B4+62: GOSUB 1220 

940 MID* (EX*, 50,2) =CHR* (C2) +CHR* (CI ) 

950 B1=B4+64: GOSUB 1220 

960 MID*(EX*,61,2)=CHR*(C2)+CHR*(C1) 

970 B1=VARPTR(EX*) 

980 IF BOB1 THEN 3.250 
990 B1=B+1 : GOSUB 1200 
1000 B5=PEEK(B1) 

1010 IF BSOB2 THEN 1250 
1020 Bl=B+2: GOSUB 1200 
1030 B5=F'EEK ( B1 > 

1040 IF B50B3 THEN 1250 

1 050 PR I NT " PRON T 0 PER CRE ARF 11 F 11 E C'OM AN D T " ; V * 

1060 B1=B4 

1070 GOSUB 1200 

1090 DEFUSR1=B1 

1100 B4=USR1(0) 

1110 ENI) 

1120 DATA 245,221,229,221,42,22,64,221,34,22 1 , 53 
1140 DATA 221,34,22,64,221,225,241,l95,45,64,221 
1150 DATA 229,221,42,221,126,0,254,255,40,9, *2 j 
1170 DATA 35,223,34,221,225,201,221,42,221,34,22 
1180 DATA 64,221,225,62,0,20 1 , 9999 
1200 IF B1. >32767 THEN B3.“B1-65536 
1210 RETURN 
3.220. C1 = I NT < B1/ 256 ) 

1230 02=61-256*01 
1!?40 RETURN 

1 250 P RIN T " S T R IN (3 A IN S P 0 S 7 A M E N T O " : G O T O 7 9 O 
1260 L I NE INPUT " INDIRI ZZO D j; PARTENZA I N ESA' 71 " ; HI * 
1270. IF LEM(H3 *) 4 OR LEM < H1 *> 3 I HEN 1260 

1280 ST=0 

1290 FORI = 3. TO LEM (HI*) 

1300 ST-ST* 16 

1310 L=INSTR(H*,MID*(HI*,I,1)) 

1320 IF L=0 THEN 1260 
1330 ST=ST+L_— 1 
1340 NEXT I 

1350 PRI NT"EOOI VALENTE DEOIMALE";ST 
1360 IF ST <16384 T HEN PRINI 

"NON SI PUÒ* PARTIRE CON LJN INDIRIZZO MINORE 
DI 4000 HEX"s GOTO 1260 


1370 V 1 = P E E K ( 8< H 4 0 B 2 ) : V 2 

V3-V1*256+V2+2: 

IF ST<V3 THEN 1720 
1380 GOTO 300 
1400 V1 = I NT(V/256) 

1410 V2=V-V1*256 
1420 X * = CHR*(V2) 

1430 GOSUB 1530 

1440 X * = CHR*(VI) : K=L +3 

1450 GOSUB 1530 

1460 RETURN 

1480 READ X 

1490 X*=CHR*(X) 

1500 GOSUB 1530 
1510 RETURN 
1530 AD=ST+K 

1540 IF K 1 >0 AND LI+ 107 
1550 K 1=4 


: PEE1 (8/H40B1 > ; 


1560 IF AD>32767 
1*570 POPE AD, ASC ( X * > 

1580 EX*=EX*+X* 

1590 RETURN 

1600 REM CONVERSIONE DEC/ESA 


IHEN PRI NT"ERRORE": STOR 
THEN AD=AD—65536 


1610 K(1)=INT(Z/4096) 

1620 Z1=Z—1 (1)*4096 
1630 K(2> =INT(Z1/256) 

1640 Z1=Z1-K(2)*256 
1650 K(3)-tNT(Z1/16) 

1660 K (4) = Z 1-16*7 (3) 

1670 2*="" 

1680 FOR 1=1 TO 4 

1690 Z*=Z*+MID*(H*,1(1)+1,1) 

1700 NEXT I 
1710 RETURN 

1 720 PRINT" NON L ’ CONISI GL 1 ABILE. 1 REARE l IN 

FILE COMANDI SE NON NELL'AREA DI 
MEMORIA PROTETTA. T] SUGGERISCO 17] 

PREMERE <BREAl- E INIZIAI I ZZARE 
IL. BASIC CON LINA ' MEM SUE ' 

MINORE DI";ST;"." 

1730 PRINT" (’MEM SI l E’ A I1 I JALE=";V3; ")" 

1740 I NPLJ T " BATT I 7 EN TER ? SE V| j( 11 CON T I NUARF 
(PER ICOLOSOì" ; X* 

1750 GOTO 1380 
1770 L=INSTR(V*,".") 

1780 IF L=0 THEN 1830 

1790 V*=L.EFT* (V*, L~1 > +" /CMD" 

+RIGHT* ( V* , L EN ( V * > -L + I. ) 

1800 GOTO 750 

1810 L=INSTR(V*, " : " ) 

1820 I F l.=0 THEN V*=V* + " /CMD " ; (30 TU 75< < 

1830 GOTO 1790 
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Cuore Matto 



Questo programma gira su Atari con almeno 8 K di 
memoria. 

Cuore matto è la versione di un rompicapo noto an¬ 
che con il nome di “Teaser” o “Shooting Stars”. Lo 
scopo del gioco è di passare da una configurazione in 
cui compaiono dei cuori di colore scuro che circondano 
un cuore di colore chiaro, ad un’altra dove dei cuori 
chiari circondano un cuore scuro. Quando sceglierete di 
spostare un cuore, altri gruppi di cuori varieranno a 
seconda della vostra scelta. 

Scegliendo un angolo, cambieranno quattro cuori in 
un quadrato che include quell’angolo. Scegliendo un 
cuore nel mezzo di un lato della matrice, si invertiranno 
tutti i cuori di quel lato. 

Infine se si sceglie il cuore centrale, verranno invertiti 
tutti i cuori che stanno su di una croce con al centro il 
cuore prescelto. 

Non è molto difficile risolvere il problema se non ci si 
preoccupa del tempo che ci si impiega, ma se si cerca di 
raggiungere la condizione finale nel minor numero di 
mosse possibile, allora la questione diventa parecchio 
più complessa. Dagli esperimenti condotti dalla reda¬ 
zione si è giunti alla conclusione che un numero di 
mosse abbastanza vicino a quello minimo si aggira 
attorno all, anche se non si è sicuri che sia il più 
basso.. 

Se in un qualsiasi momento volete ricondurvi alla 
condizione iniziale, basta premere la lettera “I” (inizio), 
azione questa che verrà contata come mossa regolare. 

Può essere interessante per gli appassionati dell’arte 
di programmare l’uso estensivo di stringhe per gestire 
numeri interi (0-255). 

Ci sono parecchi buoni motivi per usare questo siste¬ 


ma. Per prima cosa un solo carattere in una stringa 
richiede molto meno spazio in memoria di un numero 
(due byte invece di sette). I numeri possono essere 
prelevati con il sistema che adotta l’Atari di divisione 
delle stringhe (vedi linea 920). Il confronto fra le righe è 
anche utile per confrontare gruppi di più numeri alla 
volta. Notate infatti come sia facile controllare se si ha 
vinto o perso nelle linee 360-370. 

I numeri vengono scritti nelle stringhe come simboli 
grafici. 

Molte linee di programma in «Cuore matto» conten¬ 
gono speciali caratteri grafici che non sono mostrati nel 
listato, ma che è indispensabile inserire se si vuole 
giocare. 

Per scrivere questi caratteri speciali, tenete premuto 
il tasto CTRL mentre battete le lettere e le virgole segna¬ 
te qua sotto. 

Linea 160: P$ contiene HCJCLCHEJELEHGJGLG 
Linea 170: G$ contiene ABDE,ABC,BCEF,ADG, 
BDEFHCFI,DEGH,GHI,EFHI 
Linea 570: QRWRWRE 
Linea 580: ARSRSRD 
Linea 590: ARSRSRD 
Linea 600: ZRXRXRC 

Nelle linee 960 e 980 dovrete mettere due cuori 
(CTRL e VIRGOLA) il primo dopo l’apertura della paren¬ 
tesi e il secondo prima della sua chiusura. Il primo cuore 
della linea 960 ed il secondo della linea 980 come pure 
la parola CHIARO nelle linee 350 e 990 devono essere 
battute con caratteri inversi. Perfinire, se volete rispar¬ 
miare tempo, potete omettere la battitura delle istruzioni 
che si trovano nelle righe da 940 a 1250 e cancellate le 
righe 240, 250, 260. ■ 
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270 T =0 

280 H*=S*: GOSUB 550: F-2: 60SUB 640 
290 T=T+1 

300 FRINT CHRife (125);"MOSSA N. "; T 

31 0 P RIN 7 ' ' N u m 0 r o 9 ( 1 - 9 ) ’ 1 

320 GET #l,h N-K-48: IF N~25 THFN 280 

330 IF NI OR N>9 THEN 320 

340 GOSUB 920: GET #6, El 

350 IF FI — 160 THEN FRINÌ' f'HR'fe 1 1 25 » " PRIMI: 

FRINT"SCEGLI UN CUORE CHIARO...": GOSUB 820: 
GOTO 320 

360 GOSUB 710: IF HT-L THEN 590 
370 IF H*=F* THEN 430 
380 GOTO 290 

390 FOR S=30 TO 1^0: SOUND O, S,10,8: NEXT S 
400 SOUND 0,0,0,O: FRINT CHR* 1 125 > 

410 PRINT"Niente da t ar e. : GOSUB 800 

420 GOTO 500 

430 FRINT THR*<125>: FOR J-O TO 14 
440 POKE 708,4 +16* J : SOUND 0,50-2*J,10,8 
4 50 G O S U B 7 9 O : P 0 K E 7 O 8, 4 0 : G 0 S 1 .1B 7 9 O 
4 60 NE X T J : SOUNI) 0,0 , 0 < 0 

470 POKE 656, 1 : POKE 657,10: FRINT"ALLEGRIAAA 1 >" 
480 FRI NT "Ci sei riuscito in " ; T ; " mosse.." 

490 GOSUB 800 

500 POKE 764,255: PRI NT CHR*(125) : PR J N V 
510 PRINT"Ti piacerebbe giocare ancora, EH " 

520 FRI NT" (S / N)": GET # 1 , K : IF K -83 THEN 270 
j--'U F’F. I NT " Gr a.z i e 3 nt ini te per .1 a tua ben evo I en~ " 
540 FRINT"za.": END 


550 

GRAPHICS 

n . n 
jl : c> 

ET COL OR <1 , 

2,8 

: SE TL 01. OR 

**y 

0 

560 

POKE 756 

0 r ) X- • 

*t a. À. *13 m 

POH E '52, 

1 



570 

POSITION 

7,2: 

FRINT 46; 

" + 

VEDI TESTO 

* " 

580 

POSITION 

7,4: 

PRIMI' 46; 

" * 

VEDI TESTO 

r* 

590 

POSITION 

7 , 6 : 

FRINT 46; 

" * 

VEDI TESTO 

t " 

600 

POS ITION 

7, 8 : 

FRINT 46; 

" * 

VEDI TESTO 

U. Il 
♦ 

61 0 

FOR X=7 

T 0 1 3 

STEP 2: F 

OR 

Y=3 IO ? S! E9 

620 

POS 3: T I ON 

X , Y : 

FRINÌ 46; 

CNF 

' b ( 1 4 ) ; 



630 NEXT Y: NE X T X: RE TURN 

640 FOR N=1 TO 9: GOSUB 920 

650 IF F = 1 THE N F R I N T 46; H b • N, N ) ; 

660 IF F =2 THEN FRINT 46;S*(N,N>; 

670 IF F = 3 THEN PR1NT «6;F %< N,N); 

680 IF F—4 THEN FRI NT 46;N*(N,N); 

690 IF F=5 THEN PRIN1 46;L b (N,N) ; 

700 NEXT N: RETURN 

710 FOR L=1 TO G: F=l: GOSUB 840 

720 SOUND 0,5 * N+5‘ >, I 0,8 : F - 2 : GOSUB 3 4 n 

730 SOUND 0,5 *N+8, 10,8 

7 40 NEXT L: SOUND 0,0,0,'»- p=3: GOSUB 840: RE 1URN 

750 FOR K=0 TO C: NEXT K: RETURN 

760 C = 150: GOTO 750 

770 0-1000: GOTO 750 

780 0=1000: GOTO 750 

790 C=30: GOTO 750 

800 POKE 764,255 

81'.» FRINÌ , " (Premi un tasto qual unque » . " ; 

820 IF PEEK<764>=255 THEN.820 
830 RETURN 

84(1) SN=N : J =5*(N-1): FOR I = 1 T O 5 : N=ASC • GU < j 4-1 » > 
850 IF N=0 THEN 910 

860 GOSUB 920: IF F=1 THFN FRINT 46;" "; 

370 IF F=2 THEN FRI NT 46:H*<N,N>: 

880 GET 46,2 

890 IF F = 3 AND 2=160 THEN POSITION X,Y: 

PR I NT 46 B % ; : Hb < N, N ) ~hb 
900 IF F=3 AND 2=123 THEN POSITION X,Y: 

PRINT 46;I)$; : H$(N,N)=D* 

910 NEXT I: N=SN: RETURN 
920 X=ASC (Pii (2*N-1 ) 1 :: Y=ASC (Pii < 2 *N> ) 

930 POSITION X,Y: RETURN 

940 H*=S$: GOSUB 550: F=2: GOSUB 640 

950 FRINT"Parti da questa coniiqui azione..." 

960 FRINT ,"( INTORNO A )": GOSUB 800 
970 F=3: GOSUB 640 
980 FRINT CHR$(125); 

"Ed arriva a questa... < INTORNO A )" 

990 PRINT"Sceqliendo i cuori chiari.": GOSUB 800 
1000 GRAPHICS 2: F=4: GOSUB 640: POKE 752,1 
1010 FRINT"Questi sono i numeri delle posizioni." 


1020 PRINT"Da come seegli"; 

1030 FRINÌ" cambieranno di colore" 

1040 FRINT"di versi gruppi di cuori." 

1050 GOSUB 800: F=2: GOSUB 550: GOSUB 640 
1060 PR I NT " Se sc:eg 1 i 1 a c: a sei 1 a c: en t. r a le" 

1070 P RIN T " c: a m b i e r a n n o c o 1 o r e i cuori" 

1080 PRINT"in croce." 

1090 GOSUB 770: N=5: GOSUB 710: GOSUB 300 
1100 PRINT CHR*(125); 

"Se scegli la casella mediana" 

1110 PRINT"di un bordo, l'intero bordo" 

1120 PRINT"cambier a’ col ore." 

1130 GOSUB 770: N= 8 : GOSUB 710: GOSUB 800 
1 1 40 PF; I NT CHR1> ( 125) ; 

"Se scegli una casella d 1 * angolo" 

1150 PRINT"cambiera ? colore il quadrato" 

I 160 PRINT " che c.ompr ende que I 1 ’ anqol o 1 * 

1170 GOSUB 720: N=7 : G0SIJB 710 : GOSUB 8 OO 

II SO PRINT CHR*(125) ; 

"Se? arrivi ad avere tu11i 1 quadra 11 " 

1190 FRINT"scuri PERDI '•<!!": F~5 
1200 GOSUB 640: GOSUB 800 
1210 FRI NT CHR*<125 )5 

"Premi il pulsante I PER RIPARTIRE" 

1220 PRINT"da11 a posizione 1 niz 1 a1 e" 

1230 FRINT"HAI CAPITO LE ISTRUZIONI 1 •" 

1240 POKE 764,255: GET 41,1: IF K< 83 THEN 940 
1250 RETURN 
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Animazione 3D 
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Questo programma gira su Atari con almeno 8 K di 
memoria. 

Solitamente quando si vogliono scrivere programmi 
in cui compaiono disegni tridimensionali, non si può 
pretendere una elevata velocità di elaborazione. La 
ragione di ciò diviene evidente se si considera il fatto 
che c’è un terzo asse di cui tener conto. 

Invece di calcoli laboriosi per le coordinate lungo gli 
assi X, Y e Z (posizione orizzontale, verticale e prospet¬ 
tiva spaziale), questo programma mette a fuoco i punti 
finali di ogni linea usando la funzione DRAWTO. 

Questo metodo permette di disegnare velocemente 
senza perdere l’impressione di tridimensionalità. Il mo¬ 
do migliore per vedere il procedimento all’opera è di 
dare il RUN al programma. 

Il modo con cui sono strutturati i vettori può sembrare 
all’inizio abbastanza complesso, ma il concetto è piutto¬ 
sto semplice. 

L’idea di cui tener conto è che il computer deve ricor¬ 
darsi che cosa è stato disegnato e dove (da qui la 
necessità di usare i vettori). 

Come fa il computer a sapere quando deve comincia¬ 
re a cancellare? 

Per cominciare, bisogna scegliere il numero di linee 
che vogliamo vedere visualizzate sullo schermo ogni 
volta: poniamo 30. 

Ora diamo invece un’occhiata da vicino a quello che 
fa il ciclo principale. 

Il programma passa attraverso le posizioni del vettore 
incrementando la variabile A, che memorizza la linea 
visualizzata in quel momento nella posizione del vettore 
e cancella la variabile R; il che significa che la linea è 
stata immessa nella locazione successiva del vettore. 
Dopo aver completato questo ciclo, per esempio quan¬ 
do A è stato incrementato di 30, A ritorna a 0 cosicché il 
ciclo può riprendere dalla locazione 0. 


Fino a che non c’è niente da cancellare durante il 
primo ciclo (i contenuti sono portati a zero durante l’ini- 
zializzazione del programma), è il momento in cui le 30 
linee sono visualizzate. Alla trentunesima linea comin¬ 
cia il secondo ciclo. Questo è il momento in cui viene 
messo un dato nella locazione R in modo che venga 
cancellata la prima linea sullo schermo. Procedendo, il 
programma sostituisce la locazione usata per memoriz¬ 
zare la prima linea con le coordinate della linea 32 in 
modo da non sprecare spazio nel vettore. Questo siste¬ 
ma può essere immaginato come un serpente: una 
volta raggiunta la lunghezza desiderata (variabile W) si 
mangia la coda, e la testa prende il posto dell’ultimo 
segmento. 

Pur essendo il programma già soddisfacente in grap¬ 
hics 8, non è difficile cambiare la risoluzione effettuando 
queste modifiche: cancellare le linee 180, 190 e 200; 
riscrivere le linee 140, 330 e 350 in questo modo: 

140 GRAPHICS 8+16: A=-1 
330 COLOR 0: PLOT XI (R): 

DRAWTO X2(R), Y2(R): 

COLOR 1 

350 NEXT COUNTER: GOTO 60 

•Cambiare il numero 159 in 319 nelle linee 380 e 390; 
cambiare il numero 95 in 191 nelle linee 400 e 410; 
inserire la linea 145 COLOR 1. 

Risultati interessanti si possono ottenere cambiando 
le costanti numeriche nel programma. Per esempio nel¬ 
le linee 160-170 cambiando 1.5 in un numero più alto si 
sparpaglieranno di più le linee. Un’altra modifica possi¬ 
bile è cambiare la lunghezza del ciclo nella linea 220, 
modificando così la lunghezza dei tempi di cambiamen¬ 
to dei colori. 

Ed ora potete lanciarvi ad esplorare il modo della 
computer art. ■ 


119 MARI 


IO REM ***************************************** 


20 REM * * 
30 REM * ANIMAZIONE 3D * 
40 REM * VERSIONE ATARI * 
50 REM * * 
60 REM * PERSONAL SOFTWARE * 
70 REM * * 


SO REM ****^*********:M*************** ********** 

90 REM 

100 GRAPHICS O 


1 10 P RI NT" 0 LI A N TE LI N E E V UOI 7" : IN P U r W 
120 DIM XI (W) , X 2 ( W > , Y 1 ( LI ) , Y 2 ( W ) 

130 FOR I=0 TO W: X1(I)~0: X2(I)»0s Y1 (I)~t>: 

Y2(I)=0: NEXT I 
140 GRAPHICS 7+16: A*-l 

150 X 1 ( W) -SO: X2 < W) = 100: V1 <W) ”40: Y2 ( W> ”30 
160 RI = 3.5*(INT<7*RND <0>)-3) : 

R2=1.5*(INT<7*RND<0>)-31 
170 R3=1.5*(I NT(7*RND(O))-3 1: 

R4~1.5*(INT(7*RND(0)1 -31 
180 COLR=INT(3 * RND <0)1+1 
190 IF OLDCOLR=COLR THEN 180 
200 COLOR COLF: 


• e 
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210 

REM 


DRAWTO X2 (R) , Y2 (R) : COLOR COIR 


220 

F 0 R C 0 U N T E R = 1 7 0 IN T ( 10 * R N D ( O ) ) +10 

340 

IR A=W THEN A=—1 


230 

A=A+ 1 

350 

NEXT COUNTER: OLDCQL_R=COI R: GOTO 

1 60 

240 

IF A=0 THEN V=W: GOTO 260 

360 

REM 


250 

V=A-1 

370 

REM 


260 

X1 < A)=X1 ( V ): X 2(A)=X2(V) ; 

380 

IF XI (A) >159 OR X1 (A)< 0 T HFN R1 = 

--R j : 


Y1 (A)=Y1 (V) : Y 2( A )=Y2(V) 


XI (A)=X1 (A)+R1 


270 

XI (A) =X 1 (A) +R1 s X2 (A) =X2 (A) +R2 

390 

IF X 2 < A ) > 159 0R X 2 ( A ) < 0 T H E N R 2= 

-R2 : 

280 

Y1(A)=Y1( A )+R3: Y2(A)=Y2<A>+R4 


X2(A)=X2(A)+R2 


290 

GOTO 380 

400 

IF Y1 (A) >95 OR YKAXO THEN R3= 

-R3 : 

300 

PLOT XI (A) , Y1 (A) : DRAWTO X 2(A) ,Y2(A) 


Y1 (A)=Y1 (A)+R3 


3 1 0 

IF A=W THEN F;=0: GOTO 330 

410 

IF Y2(A)>95 OR Y2(A)<0 THEN R4=- 

R4 : 

320 

R=A+1 


Y2(A)=Y2(A)+R4 


330 

COLOR 0: PLOT X1(R),Y1(R): 

420 

GOTO 300 




Caleidoscopio 



Questo programma crea dei disegni molto belli con 
simmetria ottagonale. Date il RUN al programma, quin¬ 
di premete il pulsante START sulla destra della tastiera. 
Nel centro dello schermo comparirà un puntino lampeg¬ 
giante. Usando il joystick inserito nello slot 1 si può 
muovere il punto lungo tutta la superficie dello schermo. 
Se si tiene premuto il pulsante di fuoco, il punto lascerà 
lungo il suo tragitto una linea colorata. Altre sette imma¬ 
gini speculari di quella linea appariranno sullo schermo, 
tre di queste dello stesso colore della prima e le rima¬ 
nenti di colori diversi. 

Premendo il pulsante SELECT (posto sotto lo START 
sulla destra della tastiera), il computer farà da solo dei 
disegni e non resterà altro da fare che sedersi su qual¬ 
che sedia comoda e guardare lo schermo in preda a 


terribili dilemmi artistici. Se poi si volesse riprendere a 
disegnare con «le proprie mani», basterà riprendere il 
joystick e muovere la leva. Premendo il pulsante 
CLEAR verrà cancellato il disegno in modo da poterne 
fare un nuovo. 

Se si mette un joystick nello slot 2, si potrà controllare 
anche il cambiamento dei colori, premendo in avanti 
cambieranno i colori dello sfondo, spingendo a sinistra 
o a destra la leva dello stick cambieranno i colori delle 
linee. Premendo il pulsante di fuoco durante una di 
queste operazioni non cambieranno i colori, bensì la 
luminosità degli stessi. Con otto tonalità per ognuno dei 
sedici colori, si hanno a disposizione oltre DUE MILIONI 
di combinazioni possibili!!! ■ 


CATARI 

1U REM *********************************.******** 


20 REM * * 
30 REM * CALEIDOSCOPIO * 
40 REM * VERSIONE ATARI * 
5U REM * jf 
60 REM * PERSONAL SOFTWARE * 
7 0 REM * # 


80 REM *****************************t*** * *** **** 

90 REM 

10 0 GRAPHICS 0 : P 0 K E 7 5 2, .1. : 

L=6+PEEK<741)+256*F'EEK(742): POSI7ION 3,4 
1 1 0 F'R I NT " c: AI Eì DoSc:Op I o " ; POS I 7 1 ON 23 „ 4 : 

PEI NT" XXXXXX. XXXXX" 

120 POSITION 6,9: PRIN7 ''PREMI START ( 0OV8T T. CK -1 > " 

13 0 S E 'T CO LO R 2,2,4: SE T CO L. O R 4,2, 4 : 3 E 7 C 0!.. QR o, 2, S 
1 40 P0KE L + 4 ,, 7 : POKE L+5,6: I E V =764 : ST ART=5327 Q 
150 IF REE) (START)=7 THEN 150 

1 60 X =47 : Y = X : GRAF'H ICS 23 : C=3 : H1 = 1 2 : L 1 =8 
1 7 0 H 2=I... 1 : L. 2=2 : H 4=L 2 : L 4=H 2 : G O S U R 3 8 O : A=3 2 : 
P=95: 0=127 

18 O S=S TIC K ( 0 ) : G 0 S U B 2 O 0 : 

IF P E E K ( S T A R T > = 5 T H E N 4 0 O 
190 GOTO 180 

200 PLOT X+A, V : COLOR 1: PLOT X + A, Y : r=STRIG(0) 


210 COLOR C-C*T: GOSUB 440: COLOR 2--T-T: GOSUB 4 40 


220 

IF F'EEK(KEY)=54 

THEN 

FOLE V EY , 0 i GRAF'H 1C 


X=47: Y=X: GOTO 

380 


230 

IF S/2=INT(S/2) 

THEN 

Y Y — 1 + P * ( Y = y) ) 

240 

IF 3=9 OR S=13 

OR 5= 

5 THE N V = Y +1 -P * <Y=P) 

250 

IF S>8 AND S 13 

THEN 

X = X -1 + F‘ * (. X=0 > 

260 

IF S>4 AND S< 9 

THEN 

X = X +1-P *< X=P> 

270 

V=STICK(1): IF 

V = 15 

THEN RETURN 

280 

W=STRIG <1) *2 




290 IF V= 1 4 THEN H4=H4+1-(W=0>; I. 4 = 1.4+2-W 
300 IF H4=16 THEN H4=0 
310 IF L4=16 THEN L4=0 

320 IF V = 1 1 THEN H 1 =H 1 ■+ 1 — ( W=0 ) : L1 = L 1 •+• 2-W 
330 IF HI = 16 THEN H.1=0 
340 IF 1.1 = 16 THEN L1=0 

350 IF V=7 THEN H2=H2+1 - <W=0) : L.2=L2+2-W 

360 IF H2=16 THEN H2=0 

370 IF L2=16 THEN L2=0 

380 SETCOLOR 0,0,0 : SE7 COL..0R 1 , H1 , L1 

390 SETCOLOR 2,H2,L2: SETCOLOR 4, H4,1.4: RETURN 

400 7 = 0: 3=5+1NT(RND(O)* 10) : 

IF STICK(0)<15 T HEN 180 
410 I F R N D ( 0 ) < 0.1 THEN T = J. 

420 L=2+R N D ( O ) * 10 : F 0 R I = 1 70 L. : G 0 S U B 210 : N E X T 
430 GOTO 400 

140 PLOT X + A , Y : PL.07 Q -X , Y : PL07 Q-X , PY 
\ 5 0 PLOT X + A, P - Y : 2 = X : X = Y : Y = 7. : R E T U R N 
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Il programma consiste nel ricercare una astronave 
dispersa in uno spazio cubico di 7 chilometri di lato. 

La ricerca viene effettuata mediante l’input di tre coor¬ 
dinate, che rappresentano la x, la y e la z dello spazio 
tridimensionale. 

Dopo l’inserimento di dette coordinate, il programma 
manda i seguenti messaggi: 

VERSO L’ALTO 

se la coordinata x della astronave è maggiore di quella 
inserita. 

VERSO IL BASSO 

se la coordinata x della astronave è minore di quella 
inserita. 


CON UN ALTRO VALORE DI Y 
se la coordinata y della astronave è diversa da quella 
inserita. 

IN AVANTI 

se la coordinata z della astronave è maggiore di quella 
inserita. 

INDIETRO 

se la coordinata z della astronave è minore di quella 
inserita. * 

Il giocatore ha 15 ore per trovare l’astronave; ogni 
tentativo fallito fa diminuire di un’ora la durata dell’ossi¬ 
geno a cui è vincolata la vita degli astronauti. 



IO 

20 

30 
40 
50 
60 
70 
80 
90 

100 
1 10 
120 
130 
1 40 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 

31 0 
320 
330 
34 0 
350 
360 

370 

380 


REM **************** ************************ 
REM * * 

REM * ODISSEA NELLO SPAZIO * 

REM * VERSIONE SINCLAIR ZX30 * 

REM * * 

REM * PERSONAL SOFTWARE . * 

REM * * 

REM **************************************** 
REM 

PRINT ,"ODISSEA NELLO SPAZIO" 

PRINT 

PRINT "HAI 15 ORE PER RITROVARE" 

PRINT "UN* ASTRONAVE PERSA IN UNO" 

PRINT "SPAZIO DI 7 KM CUBI." 

PRINT 

LET A=RND<7) 

LET B=RND<7) 

LET C=RND<7> 

FOR J=1 TO 15 
PRINT 

PRINT "INSERISCI LE TRE COORDINATE X,Y,Z" 

INPUT D 

INPUT E 

INPUT F 

CL.S 

PRINT, D, E, F 

IF A = D AND B=E AND C=F THEN GO TO 490 
PRINT 

PRINT, "(SHIFT A) COORDINATE ERRATE (SHIFT A) 
PRINT 

PRINT "ORE DI OSSIGENO RIMASTE -"; 15-J 

PRINT 

PRINT "MUOVITI"; 

IF A>D THEN PRINT "VERSO L'ALTO"; 

IF A<D THEN PRINT "VERSO IL. BASSO"; 

IF NOT B=E THEN 

PRINT "CON UN ALTRO VALORE DI Y "; 

IF C>F THEN PRINT "IN AVANTI" 

IF C F THEN PRINT "INDIETRO" 


390 PRINT 

400 IF .1 = 14 THEN 

PRINT "PERICOLO - MORTE IMMINENTE" 


4 10 

NE X T J 





420 

CLS 





430 

PRINT 




# 

440 

PRINT 

"DISASTRO - GLI ASTRO! 

MAUTI 

SONO MORTI" 

4» 

450 

PRINT 





460 

PRINT 

"L'ASTRONAVE ERA ALLE 

COORDINATE" 

0 

470 

PRINT 

"X = "; A;"Y=";B;"Z = ";C 



0 

480 

GO TO 

63999 




490 

PRINT 




0 

500 

PRINT, 

"COMPLIMENTI. HAI TR 

OVATO 

LA" 

A 

51 0 

PRINT 

"ASTRONAVE A "; 16-J;" 

ORE 

DALLA FINE" 

9 

520 

PR 1 NT 




9 

530 

PRINT 

"UN'ALTRA MISS IONE ?" 



P 

540 

INPUT 

H* 



0 

550 

CLS 




& 

560 

IF H$ = 

"SI" THEN GO TO 120 



0 

570 

PR I NT 

"ARRIVEDERCI ALLA PRO 

SS IMA 

MISSIONE." 

0 

580 

STOP 






& 

& 
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Roulette russa 



10 REM **************************************** 


20 REM * * 
30 REM * ROULETTE RUSSA * 
40 REM * VERSIONE SINCLAIR 2X80 * 
50 REM * * 
60 REM * PERSONAL. SOFTWARE * 
70 REM * * 


80 REM ********************************* ******* 



90 REM 



et 

100 

PRINT, 

"ROULETTE R 

USSA" 


1 10 

PRINT 



» 

120 

PR I NT 

"HAI UNA PISTOLA CON UN" 


1 30 

PRINT 

"PROIETTILE 

DENTRO." 


140 

PRINT 

"RUOTERAI IL. 

TAMBURO E" 


150 

PR I NT 

"SPARERAI 1C 

VOLTE." 

* 

1 60 

PRINT 

"TE LA SENTI 

DI RISCHIARE'•" 


170 

INPUT 

A* 



180 

LET J = 

0 


m 

190 

PRINT 




200 

V—I 

T| 

« 

II 

"NO" THEN GC 

ro 440 


210 

PRINT 

"PREMI NEW L 

.INE PER SPARARE" 

# 

220 

INPUT 

1% 



230 

CLS 




240 

PRINT 




250 

PRINT 




260 

PRINT 




Il principio del gioco è semplice: hai una pistola con 
un solo proiettile, ruoti di tamburo, tiri il grilletto e... 
BANG 0 CLICK. ■ 


270 LET J=J+1 
280 LET G=RND<6> 

290 FRINÌ, "SPARO NUMERO ";J 
300 IF G<6 THEN (30 SUB 460 
310 IF G=6 THEN GO TO 500 
320 IF T~10 THEN GO TO 350 
330 IF J 10 THEN GO TO 210 
340 CLS 
350 PRINT 
360 PRINT 

370 pR I NT , " SE I SOPRAVVI SSIJTO. " 

380 PRINT "SE VUOI RISCHIARE ANCORA LA" 
390 PRINT "MORTE, BAI T1 R PER R1SCHI ARE" 
400 PRINT "0 F PER FERMARTI." 

410 INPUT B$ 

420 CLS 

430 IF B*="R" THEN GO TO 180 
440 PRINT "CODARDO..."; 

450 GOTO 440 
460 LET H=RND(2) 

470 IF H=1 THEN PRINT "* CLICH *" 

480 IF H=2 THEN PRINT "TAMBURO VUOTO" 

490 RETURN 

500 PRINT "BANG..."; 

5lo GOTO 500 


datanova srl 

applicazioni d'informatica 

I COLLAUDATI PACKAGES A VOSTRA 
DISPOSIZIONE 

■ 



abbonamenti 

affitti 

amministrazione condominali 
agenzie di pubblicità 
statistica parametrica e non 
contabilità semplificata 
contabilità per enti pubblici 
cartelle cliniche 
indirizzi 

organizzazione'fiere 
studi professionali 


realizzate in CBASIC sotto CP/M 


20121 Milano - via Lovanio 8 - tei. 02/6592633 



ASSEGNATI ALTRI DUE 
PERSONAL COMPUTER 
DEL CONCORSO CAMPAGNA 
ABBONAMENTI JACKSON 1982 


Si sono svolte altre 2 estrazioni 
del Concorso Campagna Abbonamenti Jackson 1982. 
Sono risultati vincitori di un personal 
computer Sinclair ZX-81 i signori: 


Scopinaro Francesco 
Via Vespri Siciliani, 7 - Roma 


La Notte Giuseppe 
Via Concordia, 7 - Corsico (MI) 


Congratulazioni! 


94 
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Reverse 



Questo programma occupa 1 K di memoria centrale. 
L’obiettivo del gioco è disporre le nove cifre dal a 9, che 
inizialmente sono disposte a caso, nel loro ordine natu¬ 
rale mediante inversione delle prime N cifre. Ad esem¬ 
pio, se viene stampato 

567894321 


rispondendo 5 si otterrà 

987654321 

e rispondendo ora 9, si avrà 

123456789 

ed il gioco è concluso. 




» 

# 


a 



IO REM *************************************** * 


20 REM * * 
30 REM * REVERSE * 
40 REM * VERSIONE SINCLAIR ZX80 * 
50 REM * * 
60 REM * PERSONAL SOFTWARE * 
70 REM * * 


80 REM **************************************** 

100 FRINT " REVERSE" 

1.10 FRI NT 

120 FRINT"PREMI NEW LINE PER INIZIARE" 

130 INPUT Y* 

140 DIM A(9) 

150 FOR 1=1 TO 9 
160 LET N=RND<9> 

170 IF 1=1 THEN GO TO 210 

180 FOR J=1 TO 1-1 

190 IF N=A(J> THEN GO TO 160 

200 NEXT J 

210 LET A(I)=N 

220 NEXT I 

230 LET C=0 


240 CLS 

250 FOR 1=1 TO 9 
260 FRINT A(I);" "; 

270 NEXT I 
280 FRINT 
290 FRINT 

300 P RI NT "NUMERO DI C IF R E D A IN V ERTI R E’" 
310 INPUT N 
320 FRINT N 

330 IF N>0 AND N 10 THEN GO TO 360 
340 FRINT"ERRORE - RIPROVA" 

350 GO TO 250 
360 LET K = ( N•+• 1 ) /2 
370 FOR 1=1 TO K 
380 LET J=A(I) 

390 LET A(I)=A(N+1 -1) 

400 LET A(N+1 — I>=J 
410 NEXT I 
420 LET 0=0+1 
430 FOR 1=1 TO 9 

440 IF NOT I= A(I) THEN GO TO 240 
450 NEXT I 

460 PRI NT "HAI FATTO "; 0 ; " INVERSION1" 
470 FRINT "UNA ALTRA PARTITA?" 

480 INPUT Y* 

490 IF CHR*(CODE< Y*) )="S" THEN GO TO 150 
500 STOF 



La zona in cui è allocato il programma è l’unica della 
memoria che viene conservata su nastro magnetico. 
Per questa ragione, se si vogliono memorizzare dei 
dati, è necessario inserirli aH’interno del programma 
stesso. 

Questi dati ovviamente non devono influire sulla logi¬ 
ca del programma e ciò è realizzabile utilizzando l’istru¬ 
zione REM all’inizio del programma. 

È noto che l’indirizzo di inizio del programma è 16424, 
e che in una linea così organizzata: 

$ 

0 


nn REM.(new line) 

il numero di linea occupa sempre due byte ed il REM ne 
occupa uno, come il new line; inserendo dopo il REM 
una serie di caratteri fittizi occupanti un byte ciascuno, è 
possibile riservare una zona di memoria dove successi¬ 
vamente si inseriranno i dati da registrare, carattere per 
carattere. (Ovviamente il numero dei caratteri fittizi in¬ 
seriti inizialmente deve essere sufficiente per contenere 
la quantità di dati prevista.) 

Per inserire i dati carattere per carattere è necessaria 
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» e 


bile per la memorizzazione è la 16427; questo byte 
viene utilizzato come contatore di caratteri inseriti. Ini¬ 
zialmente questo contatore è posto a zero e quindi nella 
REM iniziale è visualizzato con un blank. 

Dopo ogni INPUT viene eseguito un controllo per 
verificare se l’area rimasta disponibile è sufficiente a 
contenere il dato stesso. 

Alla fine di ogni dato il programma inserisce automati¬ 
camente un carattere “tappo” (codice 70) che permette 
in fase di stampa di separare un dato dall’altro. 

Per la memorizzazione di un numero maggiore di dati 
si devono inserire più caratteri nella REM, modificando 
opportunamente i controlli necessari. ■ 





l’istruzione: 

POKE 16427,p 

poiché abbiamo visto che il numero di riga (nn) occupa i 
due byte e REM ne occupa uno: 


# 

» 

m 

0 


16424 

16425 

16426 

16427 

16428 


nn. 

REM 

P 


Questo programma permette di memorizzare dati per 
un massimo di 63 caratteri. La prima locazione utilizza- 
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Calcoli logici 


L’uso corretto delle variabili logiche aiuta a scrivere 
programmi più efficienti. Il manuale dello ZX80 introdu¬ 
ce il concetto di calcolo logico con la frase IF, che ha la 
sintassi 

IF (condizione) 

THEN (istruzione) 

che è equivalente a 

IF (variabile logica è vera) 

THEN (istruzione 

Qualsiasi variabile numerica può essere usata come 
variabile logica in una fase IF. Se una variabile numeri¬ 
ca è zero, sarà considerata come falsa in un calcolo 
logico, altrimenti sarà considerata vera. 

Per esempio: 


ha il medesimo effetto di: 

IF D THEN PRINT D 

Nel primo caso viene creata una variabile logica tem¬ 
poranea che viene posta a zero (falsa) se D=0 oppure a 
-1 (vera) se D non è uguale a zero. Viene quindi 
analizzato il valore di tale variabile logica temporanea. 

Nel secondo caso, è la variabile D stessa che viene 
presa come variabile logica da analizzare. Allo stesso 
modo: 

IF NOT D= —1 THE PRINT D 
ha lo stesso effetto di 

IF NOT D THEN PRINT D 

Nel primo caso viene creata una variabile logica tem¬ 
poranea, quindi posta a zero (falsa) se D=-1, oppure a 
-1 (vera) se D è uguale a 0. 

Nel secondo caso se D è uguale a -1 allora NOT D è 
uguale a zero (falsa), se D è diverso da -1 NOT D è 
uguale a -1 (vera). 

I calcoli logici possono essere introdotti anche in 
espressioni artimetiche, e, ancora una volta, prende- 


IF NOT D=0 THEN PRINT D 
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ranno il valore z^ro se sono falsi, oppure -1 se sono 
veri. Ad esempio: 

LET S=0 

IF R > 15 THEN LET S = 7 
è equivalente a 

LET S=-7* (R>15) 


Nel secondo caso (R> 15) prende il valore -1 se è 
effettivamente R > 15, e così S è posta uguale a 7 = 7* 
-1. Se invece R < 16 allora (R > 15) prenderà il valore 
zero, così S sarà posta uguale a 0 = -7*0. 

In tal modo, incorporando calcoli logici ed espressioni 
artimetiche, si possono a volte eliminare degli IF non 
indispensabili. 




Libreria di Programmi 

ss 

Alcuni suggerimenti per crearvi una vostra biblioteca 
di programmi: 

1. Non registrate tutti i programmi su un’unica cas¬ 
setta; questo, se da una parte consente di raggruppare i 
programmi in poco spazio, dall’altra vi mette in difficoltà 
nel caso di una rapida ricerca di un particolare program¬ 
ma, anche se etichettato con una etichetta vocale. 


2. Registrate i programmi, uno per ogni facciata, su 
cassette della durata di pochi minuti, scrivendo chiara¬ 
mente di che programma si tratta sull’etichetta e sulla 
copertina della cassetta. 

3. Duplicate tutta la vostra libreria; in questo caso 

potete anche utilizzare una sola cassetta di lunghezza 
appropriata, ricordandovi però di inserire sempre una 
etichetta vocale prima di ogni programma e di annotare, 
se possibile, il numero di giri del registratore a cui inizia il 
programma. • 

Questa duplicazione sarà utile in caso di perdita del¬ 
l’originale o anche di un suo danneggiamento. ■ 
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Occupazione in memoria di una linea di programma 

Quando si scrivono programmi per piccoli calcolatori, 
è importante sfruttare nel modo migliore la capacità 
della memoria. 

Il primo accorgimento da seguire, se si scrive un 
programma in Basic, è quello di conoscere quanto spa¬ 
zio questo occupa all’interno della RAM. 

A questo scopo ricordiamo che: 

1. I numeri di linea sono memorizzati in due locazioni 
eccetto quando seguono GO TO e GO SUB; in questo 
caso vengono memorizzati simbolo dopo simbolo, un 
simbolo per locazione; 




2. parole chiave e simboli vengono memorizzati uno 
per locazione; 

3. ogni linea termina con 76H (118 in decimale) che 
occupa una locazione. 

« 

Perciò la linea: 

340IF I < 0 OR I > 6 THEN 
GO TO 510 (new line) 

occuperà 16 locazioni. Si noti che il numero di linea, 

340, è memorizzato in codice binario e perciò occupa 
due caratteri in ogni caso. • 

Invece il numero di linea presente dopo il GO TO, in 
questo caso 510, occupa una locazione per ogni cifra. 

Nel caso in cui la memoria risulti insufficiente per un 
programma, una soluzione può essere quella di rinume¬ 
rare le linee dello stesso facendo in modo che i numeri 
di linea presenti dopo i GO TO e i GO SUB occupino 
meno locazioni (cioè siano composti da un minor nume¬ 
ro di cifre). ■ l 

mk 


NON PERDETE IL PROSSIMO NUMERO 

IN EDICOLA DAL 1° SETTEMBRE 
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IBM PERSONAL COMPUTER: Unità di sistema fino a 256 Kbyte, con micro- 
processore 8088 a 16 bit. 2 unità drive per minifloppy da 160 Kbyte ciascu¬ 
no. Monitor fosfori verdi 12”, 25 righe per 80 col. Stampante. Alimentatore. 
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response 



Apple ha introdotto il concetto di personal 
il mondo. E in tutto il mondo Apple 
cresce. Cresce anche in Italia dove 
la Iret, che lo importa e ne cura 
l'assistenza, può oggi annunciare 
1'esistenza di una rete di vendita 
di oltre 200 centri specializzati che 
fanno di Apple il loro cavallo 
di battaglia. 

Ma cresce anche la gamma 


in tutto 



Apple. Oltre al già famoso e collaudatissimo Apple II, la Iret 
presenta Apple III, più potente e adatto ad usi specia¬ 
listici. E poi video per ogni esigenza, a fosfori verdi 
o a colori, stampanti e decine di accessori e programmi. 

E naturalmente crescono 
le vendite di Apple, perché 
il personal computing 
conquista piccole aziende, 
professionisti e privati. È facile 
prevedere quindi che Apple continuerà a crescere. 




Distribuzione per l’Italia 


jcippkz computer ÌFtÈTT informatica 


Via Bovio, 5 - 42100 Reggio Emilia -Tel. 0522/32643-TLX 530173IRETRE 








